[Delphi - problem] Obsluga nickow - czat

Jak wielu pisze cos na wzor czata ;p ... jednak nie wiem jak wlaczyc obsluge nickow ... w OnClientRead serwera mam

[code]

procedure TServerForm.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo.Lines.Add(' > ' + Socket.RemoteHost

• ' : ' + Socket.ReceiveText +' ');
  FlashWindow(Application.Handle , true) ;
  end;

[/code]

CLIENT

robie text area

Po polaczeniu clienta do serwera wysylane jest

[code] Client.Socket.SendText('/nick=' + Edit1.Text) [/code]

teraz co dodac w OnClientRead i w ktorym miejscu zeby zamiast hosta wyswietlalo nick wpisany w text area z clienta ?

No ludzie, troche wyobrazni, zapisujesz se nicki w jakiejs tablicy ze wskaznikami do socketow, potem wyszukujesz i ot cala filozofia :/