Deletar arquivo pelo programa

Adicione 1 Button .


No button add o código :

procedure TForm1.Button1Click(Sender: TObject);
var
Mr.Positive: string;
begin
Mr.Positive:= 'C:\NomeDoArquivo.formato';
if DeleteFile(Mr.Positive) then
ShowMessage('Arquivo deletado com êxito.')
else
ShowMessage('Erro:Verifique se o arquivo existe'.);
end;

Vamos entender o codigo ...

Primeiro , armazena a string Mr.Positive , mas é claro vc pode mudar para qual quiser =D , depois , diz queMr.Positive é igual ao arquivo que estará ao lado . Usa a funçao DeleteFile para deletar o arquivo , e depois utiliza o ShowMessage para exibir caso o arquivo for deletado com exito uma mensagem , e outra mensagem dizendo que nao foi possivel excluir o arquivo caso não de para deletar o arquivo .