encierra tu codigo dentro de un bloque try
para saber que error sale, aun no se como usar el bloque try except
pero es algo como abajo
Código Delphi
[-]
procedure TForm2.TimerTimer(Sender: TObject);
var
Msg: String;
begin
if not IdTcpClient.Connected then
exit;
try
Msg := IdTCPClient.ReadLn('', 5); if Msg <> '' then
MemoLog.Lines.Add(Msg);
end;
except
end