FAQ по Дельфи Опции

[Vit]

Тут представлен результат моего тяжкого и долгого труда: FAQ по Дельфи, составлен мной в основном по материалам forum.vingrad.ru, но с добавлением большого количества моих собственных кодов и нескольких статей

http://chicago.lastplanet.com/3/vingrad-ru.chm

Содержит больше 300 практических ответов из самых различных областей программирования на Дельфи. Продолжаю работать, если есть интерес, можем наладить сотрудничество. Никаких ограничений на использование приводимых кодов и распространения данного FAQ нет

[Vit]

ещё где-то встретил строку if Obj(не помню что именно было) <> nil
then Obj.Free
такого бы тоже не хотелось видеть

Смущает то что сам Free имеет проверку на nil? Попробуй ради прикола этот код:

procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
begin
  try
    t.Free;
    t.Free;
  except
    on e:exception do showmessage(e.message);
  end
end;