Socket que funciona hasta la segunda vuelta

[Phacko]

Que tal a todos.

Estoy desarrollando una aplicacion para cerrar o reiniciar otras computadoras en la red haciendo uso de TServerSocket y TClientsocket, todo funciona casi bien, digo casi porque cuando selecciono uno de dos RadioButton (apagar o reiniciar) y doy clic en el boton que corresponde a la computadora que quiero controlar sucede nada, hasta que selecciono nuevamente la misma opcion y el mismo boton es cuando se lleva a cabo el control, es decir se apaga o reinicia la computadora elejida.

A continuación el fragmento del codigo que hace esto:

Código Delphi [-]
Procedure TForm1.ControlarPC;
Begin
   If CS1.Active=True Then CS1.Close;
   CS1.Address:=IP;
   CS1.Host:=Hosts;
   Then
         Try CS1.Open;
         Except ShowMessage('No se tiene conexión'+chr(13)+'Trata de nuevo');
         End;
   If RBApagar.Checked Then CS1.Socket.SendText('1')
   Else CS1.Socket.SendText('2');
   BDellamara1.Enabled:=False;
   BDellamara2.Enabled:=False;
   BDellamara3.Enabled:=False;
   BDellamara4.Enabled:=False;
   BDellamara5.Enabled:=False;
   RBApagar.Checked:=False;
   RBReiniciar.Checked:=False;
End;

Las variable IP y Hosts se definen al pulsar el boton que corresponde a la computadora a controlar. Ya he hecho algunos cambios y nada, inclusive inserte un bucle que dependia del evento Active del socket para poder enviar el valor y nada, funcionaba igual hasta la segunda vuelta.

Agradeceria mucho alguien me diera una pista, lo mas seguro es que sea algo sin chiste, pero ya estoy algo embolado y no atino a ver que esta mal. Casi lo olvidaba, hasta hoy he trabajado con las execepciones y francamente lo que anote arriba no me ha funcionado yigual agradeceria que alguien me indicara si voy por buen camino con eso.

Gracias.

Buena noche por aca, buen dia por allá.