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

[Arakis]

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;
    IdFTP1.Disconnect; //Doppelt gemoppelt? Kenne grad nicht den Unterschied von Quit und Disconect
  FINALLY 
    //Btverbindung.Enabled := true; 
    Btverbindung.Default := true;
    Btverbindung.Caption := 'Verbinden';
  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.Caption := 'Trennen';
        BtVerbindung.Default := false; 
        //BtVerbindung.Enabled := false; 
        //BTtrennen.Enabled := True; 
        IF Form2.CBverbindungclose.Checked THEN 
          CLOSE 
      END; 
    END; 
END;

BtverbindungClick Verbindet und Trennt. Wenn du einen Fehler findest darfst du ihn behalten