Events in eigenen Klassen

[jungdelphin]

Hallo!

Ich möchte mir Klassen für ein chat-Programm schreiben.
Ein property soll eine Indycomponente oder TClientsocket sein.
Nun will ich ja Daten empfangen, etwa so:

Delphi-Quellcode:

type
Tchat = class

csocket: TClientsocket;
{...}
procedure cSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);

end;

{...}
procedure Tchat.cSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    socket.
end;

nach dem "Vorbild":

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin

end;

Kann man das mit diesen Events so machen und wie lautet das entsprechende Event in der Indykomponente idTCPClient?