Я так не умею.
А что такое {$D+} {$L+}

Методом исключений, я выяснил, что убрав связь, очистки списков строк (тоесть очищяя их намного реже) я продлил работу проги до 2 часов.
Буду дальше так искать, подругому не умею.