Trennen & Verbinden mit Indy, evtl. in einem Button vereint?

[Lamy]

Hm, wie disconnecte ich zu einem ftp-server?
Einfach mit "Disconnect" funzt nicht...

Delphi-Quellcode:

PROCEDURE TForm3.BtverbindungClick(Sender: TObject);
VAR Servername, Username, Passwort: Real;
BEGIN
  Btverbindung.Enabled := false; (* Standartwert des Buttons *)
  IF IdFTP1.Connected THEN
  TRY
    IF TransferrignData THEN
      IdFTP1.Abort;
    IdFTP1.Quit;
  FINALLY
    Btverbindung.Enabled := true;
    Btverbindung.Default := true;
  END
  ELSE
    WITH IdFTP1 DO
    TRY
      Username := Edusername.Text;
      Password := Edpasswort.Text;
      Host := Edftpserver.Text;
      Connect;
    FINALLY
      BtVerbindung.Enabled := true;
      IF Connected THEN
      BEGIN
        Form1.Statusbar1.Simpletext := 'Ftp-Verbindung erfolgreich';
        BtVerbindung.Caption := 'Verbindung hergestellt';
        BtVerbindung.Default := false;
        BtVerbindung.Enabled := false;
        BTtrennen.Enabled := True;
        IF Form2.CBverbindungclose.Checked THEN
          CLOSE
      END;
    END;
END;

PROCEDURE TForm3.BTtrennenClick(Sender: TObject);
BEGIN
  IdFTP1.Disconnect
END;

Verbindet der überhaupt?
Kann ich vielleicht beide Funktionen, Trennen/Verbinden in einem Button unterbringen?
Danköö!