[stranger08]

2 BenGun
Мистики никакой нет, все просто:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
2 Dark_User
Да, я имел в виду ситуацию, когда функция Do_Query сгенерирует исключение, которая сама не обработает, тогда значение переменной - случайное (из стека), поэтому ей нужно присвоить nil в начеле. А использовать Assigned не обязательно - достаточно сравнения на nil. Впрочем Assigned - это то же самое, но используется для свойств-событий, где сравнение с nil не проходит.