[valere78]

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

Код:

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

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

[kalinochkind]

Замени strtoint на inttostr!

[NumLock]

Код:

var
speed:integer;

form1.label1.caption:=strtoint(speed);

как она вообще откомпилировалась?))) а вообще с VCL нужно работать в Synchronize методах! сегодня только что выложил пример по работе с потоками и VCL http://www.delphisources.ru/forum/sh...6463#post66463