Отлов "висячих" объектов.

[Greek9000]

Здравствуйте.
В очередной раз столкнулся с такой проблемой: "Как узнать, существует ли объект на который ссылается указатель".

Приведу пример:

procedure TfrmMain.SpeedButton2Click(Sender: TObject);
var
  objTest:TStringList;
  linkTest:TObject;
begin
  objTest := TStringList.Create;
  linkTest := objTest;

  objTest.Text := 'empty_text';

  TestForAssigned(linkTest, 'Объект назначен');

  FreeAndNil(objTest); // Освобождаем объект

  // - - - - Это сообщение будет показано - - - - -
  TestForAssigned(linkTest, 'Объект всё ещё назначен');
  //- - - - - - - - - - - - - - - - - - - - - - - - 
end;

procedure TfrmMain.SpeedButton2Click(Sender: TObject);
var
  objTest:TStringList;
begin
  objTest := TStringList.Create;
  objTest.Text := 'empty_text';

  TestForAssigned(objTest, 'Объект назначен');

  objTest.Free; // Освобождаем объект
  objTest := nil; // На всякий случай принудительно его обнуляем

  // - - - - Это сообщение будет показано - - - - -
  TestForAssigned(objTest, 'Объект всё ещё назначен');
  //- - - - - - - - - - - - - - - - - - - - - - - - 
end;

В справке Delphi по этому поводу написано вот что:
Assigned can't detect a dangling pointer--that is, one that isn't nil but no longer points to valid data. For example, in the code example for Assigned, Assigned won't detect the fact that P isn't valid.

Если говорить простыми словами, там написано, что использовать Assigned() для определения "висячих" объектов - это не вариант и вообще ничего не сказано про то, что в таких случаях следует делать.

На форумах по этому поводу сказано, что надо обнулять объекты при освобождении и т.д. Но конкретно по решению проблемы я так ничего не нашёл, кроме совета оборачивать подобные вызова в try ... except ... end;. Как видно из приведённого примера проблему это решает лишь отчасти.

Тем не менее, раз можно отловить ошибку через исключения, то наверняка должен быть способ сделать это мирно (без жертв, так сказать)?

[JTG]

Мне кажется конкретного решения нет, если даже майкрософт советует использовать исключения вместо API'шных IsBad***Ptr