Chat - Client/Server - Connection abfrage

[Misery]

ok so wie ichs versucht hab funktioniert es nicht
wie gesagt das is mein erstes "wirkliches" projekt mit delphi ... ich habs so versucht :

Delphi-Quellcode:

procedure TForm5.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  S: string;
  CMD: string;
  P: Integer;
  cn : string;
begin
  cn :=nickname;
  S := Socket.ReceiveText;

  P := Pos(' ', S);
  CMD := Copy(S, 1, P - 1);
  Delete(S, 1, P);

  if CMD = 't' then
  begin
    Memo1.Lines.Add(S);
    if cn = nickname then  begin
    ListBox2.items.Add(cn);
end;
end;

relevant in diesem code :
cn , if cn , listbox2.
------------------------------------------
Scheint völliger Blödsinn zu sein >.< bitte um Hilfe.