طريقة اغلاق البرنامج تلقائيا بعد ادخال كلمة المرور 3 مرات خطأ

[delphi555]

السلام عليكم

اخواني صممت برنامج ووضعت له كلمة مرور بهذا الكود

كود :

procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text+Edit2.Text='ab' then form2.Show else ShowMessage('2') ; end;

كيف يمكن غلق برنامجي تلقائيا بعد ان يستعمل 3 مرات خطأ

ولكم جزيل الشكر:bye1:

[yahia1921]

ماذا تقصد بالتالي

كود :

ShowMessage('2') ;

هل تقصد بها المحاولة الثانية ام ماذا؟؟؟؟؟
اخي انصحك باستعمال حلقة
مثلا while
ويكون الشرط في حالة عدم الصحة بحلة مثل while i < 3 do
عند عدم تحق الشرط بعد ثلاث محاولات اكتب التالي

كود :

application.terminate;

قم باكمال الباقي
بالتوفيق

[kachwahed]

وعليكم السلام ورحمة الله
شيء مثل هذا:

كود :

var NumTry: Byte = 0; procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text + Edit2.Text = 'ab' then Form2.Show else begin Inc(NumTry); if NumTry > 3 then ShowMessage(IntToStr(NumTry)); end; end;

.

[karamofweb]

أنصحك بالطريقة الآتية:
سجل الرقم 1 في الريجيتري لكل محاولة وصع حلقة while تقوم باغلاق البرنامج شرطيا