Problemas con conexión de sockets

[cone220]

Tengo el siguiente código en un botón:

procedure TForm1.Button2Click(Sender: TObject);
begin
CS1.Port := strtoint(Edit2.Text);
CS1.Active := true;
CS1.Socket.SendText(Edit3.Text);
CS1.Active := true;
end;

El server socket está permanentemente escuchando. El problema es que para que la información que quiero enviar, solo llega luego de hacer click DOS VECES en el botón.