Programm beenden

[EarlyBird]

Hallo,
ich habe eine Komponente die beim Start meines Programmes ein Fenster öffnet.
(es ist ein LoggIn Dialog)
Wie kann ich es erreichen das bei einem nicht erfolgreichen loggin der Start des Programmes abgebrochen wird und das Programm sofort beendet wird.
Im Augenblick mache ich es so:

Delphi-Quellcode:

procedure TRegisterDlg.loaded();
begin
  inherited;
  IF csDesigning IN ComponentState THEN          // Komponente ist zur Designtime (=DragDrop) erstellt worden
    BEGIN
      Exit;
    END;

  if FShowonstartup then
    begin
     showform;
    end;
end;


function TRegisterDlg.showForm() : Integer;
begin
   IF csDesigning in ComponentState THEN  
    BEGIN
      Exit;
    END;
   if not Assigned(FRegisterform) then
     begin
       FRegisterform := TStart.Create(Nil);
     end;
   if FRegisterform.ShowModal = idCancel then
     begin
       FRegisterform.Close;
       freeAndNil(FRegisterform);
       Application.terminate; 
     end;
end;

Dann wird aber das Fenster des Programmes erst noch fertig erstellt und dann das Porgramm geschlossen.
Wie kann ich den Programmstart abbrechen?

Danke für Eure Hilfe
EarlyBird