constructor / destructor

[Altera]

Привет всем!
Чем отличается метод FREE, от метода DESTROY?

И по ходу, главный вопрос:

var
btn: tButton
.......
procedure Tmain_form.Button5Click(Sender: TObject);
begin
   if btn = nil then
   begin
      btn := tButton.Create(self);
      btn.Left := 10;
      btn.Top := 100;
      btn.Parent := self;
   end
   else
      btn.Free;
end;

Код работет правильно, только при первых 2-х вызовах. И то, после вызова btn.Free почему-то btn ≠ nil. Подскажите, как быть. Может быть надо btn к nil в ручную приравнивать, после вызова btn.Free?

[KORN]

здесь это описывается
http://articles.org.ru/lection/vved.php

[Jeni]

Сообщение от Altera

Чем отличается метод FREE, от метода DESTROY?

Метод Free является безопасным, его можно вызывать даже для несуществующего объекта. А внутри Free уже вызывается Destroy, если объект реально существует.

Сообщение от Altera

И то, после вызова btn.Free почему-то btn ≠ nil. Подскажите, как быть. Может быть надо btn к nil в ручную приравнивать, после вызова btn.Free?

А с чего бы btn стал автоматически равен nil? Объект не может сам себя "обнулить", откуда он знает про переменную, которая на него ссылается? Кстати, таких переменных, ссылающихся на один объект, может быть много.

А код лучше переделать:

begin
   // Удаление существующей кнопки
   btn.Free;

   // Создание новой кнопки
   btn := tButton.Create(self);
   btn.Left := 10;
   btn.Top := 100;
   btn.Parent := self;
end;

Можно вместо Free использовать FreeAndNil(btn), если нужно сделать btn = nil.

[Altera]

Яснышко!
Спасибо всем!
Я понял, значит btn - это указатель на структуру, содержащую поля и методы объекта tButton. Поэтому, при уничтожении объекта, указатель о прежнему содержит то-же самое значение. что и прежде. Можно сделать и так.
btn.free;
btn := nil;