TidTcpServer,TidTcpClient

[nenufer]

Sigo intentando pasar un string por tcp. Y no lo he conseguido. He buscado por el foro y por internet, y he encontrado algo el problema es que lo q hago no me funciona. Si alguien me puede ayudar con el codigo gracias de antemano.

En el tcpclient envio todos los datos. una imagen y un string. Si solo envio la imagen no hay ningun problema, este surge cuando intento pasar el string.

Código Delphi [-]
  try
    if TcpClient.Connected = true  then
      TcpClient.Disconnect;
    TcpClient.Host := Ip;
    TcpClient.Connect();
    TcpClient.WriteLn('Hola');
    TcpClient.WriteStream(ImgStream);
    TcpClient.Disconnect;
  finally
    ImgStream.Free;
  end;

y he probado tambien con write y nada.

Y para leerlo en el tcpserver hago:

Código Delphi [-]
Nombre := AThread.Connection.ReadLn();
showmessage(Nombre)

o he probado tambien

Código Delphi [-]
AThread.Connection.Readln(Nombre);

incluso con readstring.
Con esta ultima me muestra la ventana del showmessage pero vacio.

Con estas lineas el programa no sigue cuando lee el string finaliza y no sigue con todo el codigo que tiene por debajo.
Bueno espero q me pueda ayudar alguien, gracias.