Как предотвратить утечки памяти при возникновении ошибок?

Используйте конструкцию

try
  {здесь вы пишите код в котором может произойти ошибка}
finally
  {здесь вы пишите код который выполнится в любом случае - хоть произойдёт ошибка, хоть нет}
end

Например, это часто применяется во избежание утечек при динамическом распределении памяти:

t:TStringList;
...
t:=TStringList.create; //распределили память под объект t
try
  {здесь работаем с переменной t}
finally
  t.free;//память выделенная под объект t всегда будет освобождена 
end

Автор: Vit

Взято с Vingrad.ru https://forum.vingrad.ru