Problem mit Programminternem Chat

[5etH]

ja das hat mir schonmal weiter geholfen nun stehe ich aber vor dem problem das wenn der server eine nachricht bekommt das passende Form zu ermitteln, da ich sie ja zur laufzeit erzuge

also momentan sied das zum trennen zuständige codestück so aus

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var da : Boolean;
  I: Integer;
begin
da := false;
for I := 0 to stringgrid3.rowcount - 1 do
begin
  if stringgrid3.Cells[0,i] = socket.remoteaddress then
  begin
    da := true
  end;
end;
  if not da then
  begin
    with Tform11.Create(Application) do
  begin
    Show();
    Memo1.Lines.Add(Socket.ReceiveText);
    caption := 'Chat mit '+socket.RemoteHost;
    if stringgrid3.Cells[0,0] = '' then
    begin
     stringgrid3.Cells[0,0] := socket.RemoteAddress;
    end
    else
    begin
       stringgrid3.Cells[0,stringgrid3.RowCount -1] := socket.RemoteAddress;
    end;
  end;
  end
  else
  begin
    //hier müsste ich wissen an welches form es dann muss 
  end;