Проблема с потоками

[Dremst]

Доброго времени суток!
Использую Delphi XE5 и пишу под андроид.
Сам поток выполняется но при его завершении выбивает из программы.
Может кто-нибудь сталкивался с подобной проблемой?

[Человек_Борща]

Поздравляю, вы победитель в акции "Напиши код - и получи ошибку", номинирован на премию "Поиск телепатов для решения проблем".

P.S. Телепаты в отпуске на всегда.

[Dremst]

код потока

procedure recievetext;
var NewThread:TNewThread;
begin
NewThread:=TNewThread.Create(true);
NewThread.FreeOnTerminate:=true;
NewThread.Priority:=0;
NewThread.Resume;
end;

procedure TNewThread.Execute;
begin
s:=Form2.IdTCPClient1.IOHandler.ReadLn;   //работа с INDY, кэп не дремлет))
if s<>''
then begin Form2.ListBox1.Items.Add(TimeToStr(now)+':'+s); s:=''; end;
end;
end.

[Slym]

http://yandex.ru/yandsearch?text=delphi%20synchronize

[doktor255]

IdThreadComponent.... Синхронизация? Не, не слышали...

[Dremst]

Спасибо!
Тему можно считать закрытой.