nonVCL Fehler mit OnRead von clientsocket

[gandime]

Hi,
ich versuche die OnRead property von Tclientsocket zum laufen zu bringen mein bisheriger versucht:

Delphi-Quellcode:

type
  clsocket = class
      procedure onread(Sender: TObject; Socket: TCustomWinSocket);
   end;

var
  cl:tclientsocket;

procedure onread(Sender: TObject; Socket: TCustomWinSocket);
var
  s_temp:string;
begin

end;

procedure clsocket.onread(Sender: TObject; Socket: TCustomWinSocket);
begin
  onread(Sender,Socket);
end;

begin
  clsocket.create;
  cl.OnRead:=clsocket.onread;// Fehlermeldung: Inkompatible Typen: 'TSocketNotifyEvent' und 'Procedure'
end.

was mache ich falsch?

mfg
gandime