Dodawanie procedury do OnRead

Do komponentu ClientSocket1: TClientSocket; Chcę dodać procedurę do OnRead:

procedure CSRead;
begin
//jakiś tam kod
end;

WM_CREATE: clientsocket1.OnRead := CSRead;

Oczywiście nie programuję w VCL tylko w WinApi.
Nie wiem jak dodać tą procedurę, próbowałem nawet tak:

procedure CSRead(Sender: TObject; Socket: TCustomWinSocket);
begin
//jakiś tam kod
end;

WM_CREATE: clientsocket1.OnRead := CSRead;

Jest mi to potrzebne do skończenia mojego programu sieciowego.
Bardzo proszę o pomoc.
</delphi>

stworz obiekt ClientSocket1: TClientSocket;
np type socket_port_client=object
ClientSocket1: TClientSocket;
procedure onread();
end;

procedure socket_port_client.onread();
begin

end;

chyba o to ci chodzilo bo jak nie to
do onread napsiz nazwe procedury ktora chcesz wykonac

Niezupełnie.
Komponent ClientSocket1 ma w sobie zdarzenie OnRead.
Do tego zdarzenia podczepia się procedurę która jest wykonywana w momencie kiedy serwer przesyła wiadomość do klienta. Ja chcę właśnie dołączyć własną procedurę która będzie wywoływana w momencie jak serwer wyśle wiadomość do klienta czyli taki kod wywołać ma moja procedura:

SetWindowText(Edit5,Pchar(ClientSocket1.Socket.ReceiveText));

Więc tworzę procedurę...

procedure myread;
begin
SetWindowText(Edit5,Pchar(ClientSocket1.Socket.ReceiveText));
end;

...i przydzielam do zdarzenia OnRead...

ClientSocket1.OnRead := myread;

...i dostaję taki komunikat (Mam spolszczenie do kompilatora):
Niekompatybilne typy: 'metoda wskaźnikowa i procedura regularna'
W dalszym ciągu nie wiem jak to obejść.