Stringlisten mit Sockets senden

[robinWie]

Ich hab's mal so gemacht. Bezweifele aber sehr das, dass richtig ist, weil immer die Meldung "Asynchroner Socket Fehler 10061" kommt. Ich beschäftige mich auf erst seit kurzen mit den Sockets, weiss jemand wo der Fehler ist?

Delphi-Quellcode:

procedure TMainForm.SendProcessList(Host: string);
var
  IP: string;
begin
  if Host<>'' then begin
  IP := GetIP(Host);      // IP Ermitteln
  if Ping(IP, 100) then begin
  Socket.Active  := False;
  Socket.Port    := _Port;  //Port: 3251
  Socket.Address := IP;
  Socket.Active  := True;
  end else
    Mes.Lines.Add('=> Host Antwortet nicht!');  //Wenn keine Antwort auf Ping: Fehler
  end;
end;

procedure TMainForm.SocketConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  Proc_L: string;
  i: integer;
begin
  GetProcessList(Processes.Items);
  Processes.Update;
  Proc_L := Processes.Items.DelimitedText;
  Socket.SendText(Proc_L);
end;

[edit] Unnötie Variable aus Quelltext entfernt [/edit]