Findcomponent TclientSocket.active := true setzen

[DeddyH]

Reich doch einfach den Sender durch, das müsste ja die Socket-Komonente sein, die den Fehler meldet.

Delphi-Quellcode:

procedure TDeinForm.OnSocketError(Sender: TObject);
begin
  Reconnect(Sender);
end;

procedure TDeinForm.Reconnect(Sender: TObject);
begin
  if Sender is TClientSocket then
    TClientSocket(Sender).Reconnect;
end;

So in der Art müsste das doch funktionieren.