procedure FreeAndNil(var Obj)

Освобождаем память занятую объектом и присваивает переменной значение nil. Если передаваемый объект равен nil, то ничего не произойдет.

Вызов процедуры заменяет такую конструкцию:

if Obj <> nil then
begin
  Obj.Free;
  Obj := nil;
end;