[valere78]

Привет всем!Первый раз в жизни я прошу помощи на счет программирования,но сам уже не знаю что делать!Дело в том что написал программу,какую думаю вам не интересно да и не хотелось бы говорить!
Вот кусок кода который мне интересен!

Код:

procedure ......;
var
speed:integer;
begin
repeat
..... //Тут нужный мне код и тд(ничего сложного
..... //
speed:=speed+1;
form1.label1.caption:=strtoint(speed);//Вот на эту строку обратите внимания,это тупо счетчик
until false;
end;

Так вот,ставлю эту процедуру на поток!Все работает на ура!но через какое то время программа вылетает!
Опытным путем выявил что вылетает именно на строке label,стоит ее убрать и программа будет работать сутками!
Может кто то сталкиавлся с такой проблемой?ПРошу мысли в слух как устанить эту ошибку...try except не прелогать!ошибка в памяти так что от него толку мало будет!
Вот скрин ошибки
Безымянный.jpg