TList |Вариантные типы | Жизненный цикл |

Здравствуйте!

Я кажется либо наткнулся на огромный косяк в Делфах, либо я чего-то крупно не догоняю.
Предыстория:
Писался список - обертка для TList, который хранил бы не указатели, а варианты. Все было нормально, пока я не решил добавит возможность хранения объектов. Для того, чтобы корректно удалить объект из памяти после удаления элемента списка, надо определить, действительно ли там объект (вариант все-таки), и если он там есть, то удалить его. Для определения того, что в варианте находится указатель на объект, запись туда объекта производится так:

  type varTmp: Variant;
  objTmp: TObject;
  TVarData(varTmp).VType:=vtObject;
  TVarData(varTmp).VPointer:=Tmp;

При этом всегда можно проверить что хранится в варианте, через проверку TVarData(varTmp).VType, и извлечь оттуда сам объект через TVarData(varTmp).VPointer. Но тут всплыла очень странная проблема, которую проще всего проиллюстрировать кодом:

program class_variant;

{$APPTYPE CONSOLE}

var
  varTmp: Variant;
  objTmp: TObject;
begin
  // создаем
  objTmp:=TObject.Create;
  TVarData(varTmp).VType:=vtObject;
  TVarData(varTmp).VPointer:=objTmp;
  // получаем
  writeln(TObject(TVarData(varTmp).VPointer).ClassName);
  // удаляем
  TObject(TVarData(varTmp).VPointer).Free;
  // объект по прежнему существует ?
  writeln(objTmp.ClassName); // да! <== Здесь по идее AV
  writeln(TObject(TVarData(varTmp).VPointer).ClassName); // да!!?
  readln;
end.

Результат:

TObject
TObject
TObject

Все три вывода сработали! И никаких AV.
Упс! А что тогда я удалил?... Получается объект в варианте живет и после самого удаления, либо мы удалем совсем не то. Но если этот код еще можно осмыслить что-ли, то вот это:

program class_variant;

{$APPTYPE CONSOLE}

type
  TMyObj = class(TObject)
    procedure SayHello;
    constructor Create;
    destructor Destroy; override;
  end;

{ TMyObj }

constructor TMyObj.Create;
begin
  writeln('obj created');
end;

destructor TMyObj.Destroy;
begin
  writeln('obj deleted');
  inherited;
end;

procedure TMyObj.SayHello;
begin
  writeln('hello!');
end;

var
  varTmp: Variant;
  objTmp, objTmpRef: TMyObj;
begin
  // создаем
  objTmp:=TMyObj.Create;
  TVarData(varTmp).VType:=vtObject;
  TVarData(varTmp).VPointer:=objTmp;
  // извлекаем
  objTmpRef:=TMyObj(TVarData(varTmp).VPointer);
  // удаляем
  objTmpRef.Free;
  // удалили?
  objTmpRef.SayHello;
  //
  readln;
end.

Результат:

obj created
obj deleted
hello!

Без комментариев.

Может кто-то сможет мне помочь удалить объект? Заранее спасибо.