S
на форму не получилось кинуть. но так вполне создаются:
procedure TForm7.Button1Click(Sender: TObject);
var
ClientSocket1: TClientSocket;
begin
ClientSocket1 := TClientSocket.Create(Self);
ClientSocket1.Name := 'ClientSocket1';
ClientSocket1.Active := False;
ClientSocket1.ClientType := ctNonBlocking;
ClientSocket1.Port := 0;
end;
Вот это спасибо, буду юзать.