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

[Akut-Programming]

Also ich hab mir den code mal einwenig angeschaut - versuchs doch mal über die Button-Caption zu lösen?!,... hier ist mein Vorschlag, Ungefähr so..

Delphi-Quellcode:

procedure TForm1.BtverbindungClick(Sender: TObject);
VAR Servername, Username, Passwort: Real;
BEGIN
  if Btverbindung.Caption=='trennen'
  Btverbindung.Caption:='verbinden'
  IF IdFTP1.Connected THEN
  TRY
    IF TransferrignData THEN
      IdFTP1.Abort;
    IdFTP1.Quit;
    IdFTP1.Disconnect;
  FINALLY
   ...
  END
  ELSE if Btverbindung.Caption=='verbinden'
  Btverbindung.Caption:='trennen'
    WITH IdFTP1 DO
    TRY
      Username := Edusername.Text;
      Password := Edpasswort.Text;
      Host := Edftpserver.Text;
      Connect;
    FINALLY
      IF Connected THEN
      BEGIN
        Form1.Statusbar1.Simpletext := 'Ftp-Verbindung erfolgreich';
        IF Form2.CBverbindungclose.Checked THEN
          CLOSE
      END;
    END;
END;