Hallo,
erstelle dir doch einfach eine globale Variable
var aChecked : Boolean
und wenn der Button geklickt wurde setzt du sie auf true. Zu Beginn eine Abfrage ob schonmal gecheckt wurde.
Delphi-Quellcode:
procedure TForm1.Button1Click...
begin
if aChecked = False then begin
//Deine Abfragen
//
end;
aChecked := True;
end;
Gruss
Urba