[m@kio]

Código Delphi [-]
     //Checar mensajes, se crea un hilo para ejecutar lo k se hace en el timer
     TMsj = class(TThread)
     protected
       procedure Execute; override;
     end;
   
   var
     //Se hace una variable del tipo k hicimos para despues crearla 
     ChecarMsj:TMsj;
   
   //Procedimiento cuando se ejecuta el hilo
   procedure Tmsj.Execute;
   var
     Msg : String;
   begin
    with form1 do
    begin
     if not IdTCPClient1.Connected then
       exit;
   
     Msg := IdTCPClient1.ReadLn('');
   
     if Msg <> '' then
       if Msg[1] <> '@' then
         begin
         { Not a system command }
           memLines.Lines.Add(Msg);
         end
    end;
   end;
   
   //Procedimiento del timer solo creas el hilo
   procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   ChecarMsj:=TMsj.Create(false);
   end;

Pruebalo a mi me funciono espero k te sirva si no entiendes pues aki estamos para intentar ayudarte