IdFTP - Ermitteln ob Verbindung hergestellt wird bzw dieses Abbrechen

[T.E.]

Moin moin liebe DPler,

ich hab gerade mal eine Frage zu der IdFTP Komponente.
Und zwar suche ich nun schon ne weile nach einer Möglichkeit abzufragen, ob diese gerade versucht eine Verbindung zu einem Server herzustellen und diesen Verbindungsaufbau abzubrechen, habe da aber bisher noch keine Lösung gefunden.

Außerdem bin ich mir beim Beenden gerade etwas unsicher, denn ich habe in der FormCloseQuery im moment folgendes drin stehen:

Delphi-Quellcode:

procedure TMain_Form.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('Sind Sie sicher, das Sie das Programm schließen und beenden wollen?' + #13#10 + 'Alle laufenden Transfers werden abgebrochen!', mtConfirmation, [mbYes,mbNo], 0) = mrYes;
  if CanClose = true then
  begin
  { Überprüfe ob gerade Verbindung hergestellt wird }
  //LÖSUNG NOCH GESUCHT

  { FTP Verbindungen trennen }
    //Trenne 
    if FTPSrv.Connected then
    begin
      //FTPSrv.Abort;
      FTPSrv.Disconnect;
      FTPSrv.Quit;
    end;

    //Beende
    Application.Terminate;
  end;
end;

Habe aber festgestellt, das wenn ich das Programm beende dies zweimal beenden muss, bevor die Anwendung geschlossen wird. Auch hier suche ich noch nach einer Lösung

Besten Dank im voraus für eure Unterstützung.