TClientSocket - OnError Event per Code zuweisen

[Yheeky]

Hi,

habe gleich das nächste Problem bezüglich der TClientSocket Komponente. Beim Erstellen einer TClientSocket Komponente per Code möchte ich der Komponente gerne ein OnError-Event zuweisen. Wie kann ich das machen? Bei der Übergabe der Parameter liegt das Problem...
Hier der Code:

Delphi-Quellcode:

 TempClient := TClientSocket.Create(frmMain);
       TempClient.Name := 'SocketNr1';
       TempClient.Port := 3341;
       TempClient.OnError := ClientError(???);