IdTCPClient, прием сообщений.

[gusluk]

Как в IdTCPClient проверить наличие сообщений?
Пробовал так

 try
  form1.Edit1.Text:=form1.IdTCPClient1.Readln;
  except
  form1.Edit1.Text:='';
  end

прога просто висит пока не придет сообщение. А надо чобы просто выводило сообщение "Сообщений ет.".

[Квэнди]

я бы реализовал вот так: (Indy 10.2.5)

while not(IdTCPClient1.IOHandler.CheckForDataOnSource()) do
  begin
    edit1.Text:='Сообщений нет';
    application.ProcessMessages;
  end;
edit1.text:=IdTCPClient1.IOHandler.ReadLn();

разумеется чтобы не создать зацикливание, в while необходимо еще какое- то условие выхода добавить, но общая идея ясна, думаю.