Client ausfindig machen

[Rastaman]

Hallo. Ich hätte da eine Frage zu den Sockets.
Und zwar habe ich einen server und mehrere Clienten verbinden.
Die Clienten senden Text. Nun möchte ich herausfinden von welchem der Text kam.
Ungefähr so.

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage('Nachricht von Client Nr.' + IntToStr(?) + ' empfangen');
end;

Was muss ich für das ? einsetzen??
Danke schonmal.