كود الشرط في button

[Agmcz]

السلام عليكم
ضع متغير global من نوع Boolean نعطيه القيمة False إفتراضيا
عند الضغط على زر الأول نسند القيمة True للمتغير
عند الضغط على الزر الثاني نتحقق من حالة المتغير
بهذا الشكل

PHP كود :

var
  Clicked: Boolean = False;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Clicked := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Clicked then
    ShowMessage('')
  else
    ShowMessage('');
end;