123Cry-
Put a button on the form, say "Button1". In the OnClick event, double click and it will insert a procedure
Procedure Button1Click(Sender :TObject);
Begin
End;
Put in the procedure call:
Procedure Button1Click(Sender: TObject);
Begin
Close;
End;
HTH,
JGS