[m@kio]

Estoy haciendo una aplicacion la cual se conecta a un servidor k yo hice, los hago con TidTCPClient y TidTCPServer, al inciar la aplicacion on el oncreate me conecto de la sig. forma:

  with datos do
  begin
  if cliente.Connected then
    Application.MessageBox('Actualmente conectado con el servidor','Aviso',mb_ok+mb_iconinformation)
   else
   begin
    try
     cliente.Connect;
    except
     Application.MessageBox('No se ha podido conectar con el servidor','Aviso',mb_ok+mb_iconwarning);
     application.Terminate;
    end;
   end;
   Cliente.WriteLn(inttostr(0));
   hora:=cliente.ReadLn;
   DecodeTime(strtotime(hora), Hour, Min, Sec, MSec);
   Cliente.WriteLn(inttostr(1));
   fecha:=cliente.ReadLn;
  end;

eso si me lo hace bien.

Pero en otra forma que es un checador en el evento OnActivate vuelvo a pedir los mismos datos el servidor de la sig. forma:

  with datos do
  begin
   if cliente.Connected=false then
    Application.MessageBox('No hay conexion con el servidor','Aviso',mb_ok+mb_iconinformation)
   else
   begin
    Cliente.WriteLn(inttostr(0));
    hora:=cliente.ReadLn;
    DecodeTime(strtotime(hora), Hour, Min, Sec, MSec);
    Cliente.WriteLn(inttostr(1));
    fecha:=cliente.ReadLn;
   end;
  end;

pero en la linea hora:=cliente.ReadLn; se traba y ya no hace nada yo no le veo nada raro al codigo, pero no lo he podido reparar, espero y me puedan ayudar.

El TidTCPClient lo tengo en un DataModule.