EFFACEUR DE FICHIER AVEC OPENDIALOG

procedure TForm1.Button2Click(Sender: TObject);

begin

OpenDialog1.InitialDir:='c:\';
  OpenDialog1.Execute;
  if OpenDialog1.FileName='' then Edit1.Text:='Vous n''avez sélectionné aucun fichier'
                             else Edit1.Text:= OpenDialog1.FileName;


OpenDialog1.FileName;



end;

procedure TForm1.Button1Click(Sender: TObject);
var path : string;
var i: integer;
begin
path:=edit1.text;


windows.DeleteFile(PAnsiChar(path));
edit1.Text:='';
end;