Datenverkehr an einem Port auslesen

[Cabal]

Ich hab mal mit dem IndyClient nach den Tutorialvorlagen gebastelt.

Mehr oder weniger habe ich eigentlich nur das eine Tutorial nachgebaut, bin nicht sicher ob das reicht?

Also ich weiss leider nicht ob diese Indy's nur zu anderen Indy's verbinden können. Ich hab mir dann den Code angekuckt und bin davon ausgegangen das der zu allem verbinden kann.
Hier mal der code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Port := StrToInt(Edit2.text);
IdTCPClient1.Host := Edit1.text;


  with IdTCPClient1 do begin
        Connect;
  try
    ListBox1.Items.Add(ReadLn)
  finally
    disconnect;
    end;

  end;

Dann habe ich einfach mal netstat ausgeführt naja und mal wahrlos eine IP und einen passenden Port rausgenommen und es versucht und bekomme immer einen Socket Error.




Also zweites habe ich noch nach einer Hilfe von Delphi-Forum.de
folgendes gebaut:

Delphi-Quellcode:

procedure TForm1.TcpClient1connect(Sender: TObject; Socket: TCustomWinSocket);  
begin  
    if (CurrentClient = NIL) then begin  
        currentclient := Socket;  
        TcpClient1.RemoteHost := edit1.text;  
        TcpClient1.RemotePort := Edit2.text;  
        TcpClient1.Open;  
  end  
  else  
    Socket.Close;  
end;  

 

 
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);  
  var  
    Data: String;  
begin  

 
Data := Socket.ReceiveText;  
Memo1.Text := Data;  

 
end;

Ob das funktioniert weiss ich nicht, da ich es nicht hinbekomme, die Proceduren zu starten.