Problemas con Socket

[miguel_fr]

Bueno ahora paso a mostrar el codigo, asi pueda recibir mas informacion por favor, si no es mucha molestia
----------------------------------------------------------------
procedure TCliente.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(' Mi mensaje ' );
end;

como ven, mi cliente tiene un boton, que al ser precionado envia un texto, esto no tiene ningun problema
----------------------------------------------------------------
procedure TServidor.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
sMensaje : String;
begin
sMensaje := Socket.ReceiveText;
Socket.SendText(' Contesto con otro mensaje ');
end;

Este es mi servidor, tampoco tengo problemas en leer el mensaje que me envio el cliente ni en enviar un mensaje por parte del Servidor
----------------------------------------------------------------
procedure TServidor.Button1Click(Sender: TObject);
begin
serversocket1.Socket.SendText('mi mensaje del server');
end;

Bueno todo se pudre aqui , yo lo unico que quiero es enviar un mensaje desde el server, cuando yo presione un simple boton, pero no me funciona

Creo que ahora me podran ayudar un poco mas, este es el unico codigo importante que tienen las aplicaciones, uso el mismo puerto y el host por ahora es el local, no creo que eso influya, porque como dije antes no tengo problemas en enviar atraves del cliente
----------------------------------------------------------------