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.