TForm1.FormCreate (Sender:
TForm1.Button1Click (Sender: <500) and (exit = False)
TForm1.Button2Click (Sender: TObject);: = True;. Terminate;
end;
.