[Dezmandick]

Есть поток изменяющий Label.Caption на значение считанное из памяти в string,Как можно реализовать сравнение и реакцию на изменение в нужную сторону? при попытке такого кода

Код:

While 1 = 1 do
PZIsh:= StrToInt(Form1.Label7.Caption);
Sleep(1000);
PZTek:= StrToInt(Form1.Label7.Caption);
if PZIsh > PZITek then
begin
код
end

Критует программу и выдает дебаггер.