icq clone mit ftp verbindung

[Mr.Dollar2k3]

hab noch ne frage ganz kurz was iss hier falsch ????

Delphi-Quellcode:

procedure Iplesen ( IP  : String);
begin
 if form1.EditIP.Text= '' then begin
 IP := form1.listboxIP.Items[form1.listboxIp.ItemIndex]   ;
 end
 else
 IP:= form1.EditIP.Text;
 end;

procedure TForm1.Button3Click(Sender: TObject);
VAR IP : string;
begin
     ip:= EditIP.Text;
    Iplesen(IP);

     try
     Client.Port:=10024;
     Client.Host:= IP;
     Client.Open;
     Label3.Caption:= 'Sie sind mit dem Kontakt-Server verbunden';

    except
    Label3.Caption:= 'Es konnte keine Verbindung hergestellt werden';
    Server.Free;
    Client.Free;
    end;
    end;