Критическая ошибка

[yan11]

Через минут 10 работы программа вываливается с критическими ошибками.

Как определить с чем связан вылет ?

[Alex11223]

Видимо с отсутствием в коде проверки успешности выполнения какой-то функции и попытке читать после этого по некорректному адресу.

Код-то покажите.

[yan11]

800 строк кода сюда выкладывать ?

[Serge_Bliznykov]

а почему нет? исходники проекта запаковать в архив, архив прикрепить к сообщению (см. "Расширенный режим" - "Управление вложениями")

[yan11]

Выкладываю исходники сюда https://cloud.mail.ru/public/3xEG/shiDPE8Ni

В поле таймера пропишите 50, нажмите Start запустится таймер. Через 5-10 минут получаем примерно следующие ошибки.

[Alex11223]

Дык вроде ж тема не про утечки памяти была.

[kropotkina-alice]

Навскидку...

function SearchPartOfScreen
Не создается bmMain, но происходит обращение к bmMain и в завершение всего
bmMain.Free; который не был создан

function SaveFullScreen
Есть bmMain := TBitmap.Create();, но нет bmMain.Free...

function GetCurrentCard()
Закомментировано создание bmMain := TBitmap.Create();
Тем не менее есть категоричное
finally
bmMain.Free;
(Об if (SearchBitmap(bmMain, bmSub, R)) then перед этим я уже и не говорю...
Очередное обращение к несозданному объекту)...

Дальше не стала смотреть.
Видно, что вы очень куда-то торопились.
А программы надо писать вдумчиво, внимательно и без спешки...

[Pavia]

Сообщение от kropotkina-alice

Навскидку...
bmMain.Free; который не был создан

Он как раз для этого и создан.

Use Free to destroy an object. Free automatically calls the destructor if the object reference is not nil. Any object instantiated at runtime that does not have an owner should be destroyed by a call to Free so that it can be properly disposed of and its memory released. Unlike Destroy, Free is successful even if the object is nil; so if the object was never initialized, Free won’t result in an error.

Перевожу последнее предложение, вызов Free не возвращает ошибку если объект не инициирован.

[Pavia]

function SaveFullScreen(Way:string):boolean;
  DC:=GetDC(0); // - есть
  ReleaseDC(0, DC); //- нету. Утечка хэнделов

function SaveFullScreen(Way:string):boolean;
...
  Form1.Image1.Picture.Bitmap := bmMain;

Image и его приятели имеют хитрую структуру и алгоритмы поведения.
Обычно объекты присваиваться по ссылке, но не в этот раз. Тут идет присвоение объектов через метод Assign(), т.е. присвоение идёт по по элементам.
Поэтому далее имеем утечку Bitmap'ов.
Добавить:

bmMain.Free;

Аналогичная ошибка в

procedure Search(pattern: string; p_color: TColor);
...
  Form1.Image1.Picture.Bitmap := CaptureScreenRect(Rect(0,0,Screen.Width,Screen.Height));

[yan11]

kropotkina-alice,,
Может быть вы не обратили внимание, но во всех случаях объект TBitmap создаёт и возвращает функция -

function CaptureScreenRect(aRect: TRect): TBitMap;


Pavia
Все эти функции не используются в Timer1.
Посмотрите пожалуйста процедуру, которая в таймере запускается.
TForm1.Button1Click(Sender: TObject);