Problem mit modalem Fenster

[Lord_Stifterl]

Hi liebe DPler,

ich habe ein Problem mit einem modalen Fenster. Im OnActivate-Ereignis verbinde ich mich zu einem FTP-Server und beende dann wieder die Verbindung. Anschließend Teile ich dem Programm mittels dem Befehl Close (habs auch schon mit ModalResult probiert) mit, dass dieses Form nun geschlossen werden soll. Leider geschieht die nicht. Wo könnte hier das Prob liegen?

Delphi-Quellcode:

procedure TfConnect.FormActivate(Sender: TObject);
begin
          FTPConnection.Host := sServer;
          FTPConnection.UserID := sUser;
          FTPConnection.Password := sPWD;
          Try
             FTPConnection.Connect;
             ShowMessage ('Ich bin drin');
          Except
                ShowMessage ('Verbindung zum Server konnte nicht hergestellt werden.');
          End;
          FTPConnection.Disconnect;
          Close;
end;

procedure TfConnect.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caFree;
     fConnect := Nil;
end;

Danke und Liebe Grüße

Lord_Stifterl