procedure TMainForm.FormCreate(Sender: TObject);
begin
  ...
  mainform.hide;
  if ... then
  Begin
   Application.Terminate();
   exit;
  end;
  ...
  mainform.show
end;