[lore]

Hola a todos, les cuento que realizo una consulta de un cliente a un servidor para que me muestre una form pero no me funciona.
Les envío algo de código.

En el cliente

procedure TFPantalla.BaceptarClick(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Eusuario.Text);
ClientSocket1.Socket.SendText(Epassword.Text);
end;

En el servidor

procedure TFPrincipal.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Modulo.IBQuery1.Close;
Modulo.IBQuery1.Params[0].AsString := Socket.ReceiveText;
Modulo.IBQuery1.Params[1].AsString := Socket.ReceiveText;
Modulo.IBQuery1.ExecSQL;
Modulo.IBQuery1.Open;
if Modulo.IBQuery1.RecordCount > 0 then
Socket.SendText('OK');
end;

En el cliente

procedure TFPantalla.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
mensaje : String;
i : Integer;
begin
mensaje := Socket.ReceiveText;
i := StrToInt(mensaje);
if i<> 0 then
FReloj.ShowModal
else
Label5.Caption := 'Login incorrecto';
end;

Desde ya muchas gracias.