طريقة اغلاق البرنامج تلقائيا بعد ادخال كلمة المرور 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 تقوم باغلاق البرنامج شرطيا