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

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

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

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

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