كيفية حذف ملف ببرنامج دلفي

[sabre]

بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين

كيفية حذف ملف ببرنامج دلفي
انشاء مشروع جديد دلفي

وضع هذه العناصر على الفورم
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;

تم عرض ثلث طرق لحذف ملف
وبــأمرين مختلفين DeleteFile و Erase

كود :

procedure TForm1.Button1Click(Sender: TObject);//http://delphi4arab.net/forum
var
    FileName: String;
begin
  FileName := 'fichier1.txt';
  if FileExists(FileName) then
           DeleteFile(FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  F:Textfile;
  FileName: String;
begin
FileName := 'fichier1.txt';
if FileExists(FileName) then
begin
   AssignFile(F, FileName);
   try
    Reset(F);
    CloseFile(F);
    Erase(F);
    except
     on EInOutError do
  end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  F:Textfile;
begin
  with OpenDialog1 do
  begin
   Title :='Suppression de fichier';
   Filter := 'Tout les fichiers (*.*)|*.*';
   if Execute then
   begin
    if MessageDlg('Supprimer '+FileName + '?',
      mtConfirmation,[mbYes,mbNo],0) = mrYes then
        DeleteFile(FileName);
  end;
end;
end;

[Delphi_2007]

شكرا على الموضوع والكود، لقد قمت بالتجريب ولقد نجح معي باستثناء
- عندما كان اسم الموضوع المراد خذف بالعربي لم يحذفه

اضافة قمت بالغاء اكواد الزرين Button1 و Button2 وابقيت على كود الزر3 Button3
وعند التجريب نجحت محاولة الحذف

اذا امكن وبعد اذنك ممكن شرح مفصل للاكواد ولك كل الشكر المسبق مع اخلص تحياتي.