Socket-Fehler bei IndyFTP

[Ingolf]

Es ist nur ein kleines Programm. Ich habe mal den Code mit abgebildet. Ich arbeite mit Delphi6.
Die mit Label (1..3) bezeichneten Elemente sind nur Beschriftungen.
Beim TIdFTP-Objekt ist nur "passiv" auf "true" umgestellt. Der Rest ist Standard und wird vom Programm geändert. Sobald der Compiler in die den Befehl "connect" ausführen soll, kommt die Fehlermeldung.

Gruß Ingolf

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Psock, IdBaseComponent, IdComponent, extctrls, comctrls,
  IdTCPConnection, IdTCPClient, IdFTP, IdAntiFreezeBase, IdAntiFreeze;

type
  TForm1 = class(TForm)
    idED: TEdit;        //User-Eingabe
    Label1: TLabel;     //Beschriftung
    Label2: TLabel;     //Beschriftung
    pwED: TEdit;        //Passwort-Eingabe
    Label3: TLabel;     //Beschriftung
    hostED: TEdit;      //Host-Eingabe
    meldung: TLabel;
    verbindenBtn: TButton;
    trennenBtn: TButton;
    ftp: TIdFTP;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure verbindenBtnClick(Sender: TObject);
    procedure trennenBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.verbindenBtnClick(Sender: TObject);
begin
       with FTP do try
                User := idED.Text;
                Password := pwED.Text;
                Host := hostED.Text;
                Connect;

                if Connected then begin
                        verbindenBtn.Enabled:=false;
                        trennenBtn.Enabled:=true;
                        meldung.Caption:='Verbunden';
                        
                end;
            finally
                verbindenBtn.Enabled:=true;
                trennenBtn.Enabled:=false;
                meldung.Caption:='Konnte nicht verbinden';
       end;

end;

procedure TForm1.trennenBtnClick(Sender: TObject);
begin
        FTP.Disconnect;
        meldung.Caption:='Verbindung getrennt';
        verbindenBtn.Enabled := true;
        trennenBtn.Enabled := false;
end;

end.