Поставил в конце функции CompareIMGS как посоветовал.
SetLength(buf1, 1, 1);
SetLength(buf2, 1, 1);
Вылез Exeption. Видимо после 1го сравнения буфер пропал а на втором следующем в таймере сравнении уже он его не нашел.
Поставил такое зануление в конце всех сравнений в таймере
procedure TForm1.TTimer1(Sender: TObject);
begin
//......................CompareIMGS
//............CompareIMGS
//...
SetLength(buf1, 1, 1);
SetLength(buf2, 1, 1)
end;
Сейчас буду тестить...
Или при этом способе тоже будет утекать?
|