Mehrere Form2s öffnen und einen Socket übergeben

[Sir Rufo]

Indem du der ChatForm eine Property hinzufügst?

Delphi-Quellcode:

TClientChatForm = class( TForm )
...
private
  FClient : TClientSocket;
  procedure SetClient( Value : TclientSocket );
public
  property Client : TClientSocket read FClient write SetClient;
end;

...

procedure TClientChatForm.SetClient( Value : TClientSocket );
begin
  // hier können jetzt auch noch weitere Aktionen erfolgen, die bei der Zuweisung zu beachten sind
  FClient := Value;
end;

bei der Auswahl dann

Delphi-Quellcode:

with TClientChatForm.Create( Application ) do
begin
  Client := TheClientSocket; // oder wo imm du den auch herbekommst
  Show;
end;