Problema al abrir Socket

[mguixot]

Hola a todos,

estoy intentando crear un socket para poder enviar una cadena a un servidor remoto, pero al poner la propiedad Active := True; no me da ningun error, pero no se queda activo, siempre tiene valor := False.

[code]
// ....
var
S1:TClientSocket;
begin
// creamos socket
S1 := TClientSocket.Create(nil);
S1.Host := nHost;
S1.Port := strtoint(nPort);
try
S1.Active := True;
//.....

[code]

Parece algo muy sencillo, pero me he atascado aqui y no consigo hacerlo funcionar. He conseguido poder poner la propiedad Active := True, pero poniendo el ClientType := ctBlocking; pero aun así, a la hora de esperar una respuesta se queda colgado...

Saludos