Das Event OnError ist so deklariert:
Delphi-Quellcode:
TSocketErrorEvent = procedure (Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer) of object;
Also muss man die übergeben Parameter auch benützen und darf nicht selbst mit FindComponent() suchen.