Как проверить, что адрес метода более недоступен?

[Человек_Борща]

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

как проверить что метод по адресу (объекта) более недоступен?

Грубо говоря есть код:

function TCustomLogStorage.WriteEntry(Entry: TLogEntry): Boolean;
var
  bDropThis: Boolean;
  i: Integer;
begin
  Result := False;

  for i := 0 to fOnWrite.Count - 1 do
  begin
    bDropThis := False;
    if Assigned(fOnWrite.Subscription[i]) then
    begin
      try
        fOnWrite.Subscription[i](Entry, bDropThis);
      except
        //The requested addr can not be called, note this item as nil
        // and no more avaliable
        fOnWrite.Subscription[i] := nil;
      end;
      if bDropThis then
      begin
        FreeAndNil(Entry);
        exit;
      end;
    end;
  end;
  if fInMemory then
    Add(Entry);
  Result := True;
end;

Где fOnWrite - класс реализующий механизм подписки на событие,
когда 1 событие слушает толпа подписчиков.
Беда в том, что если подписчик, не отпишет слушатель, и умрет (Free, FreeAndNil), то адрес метода будет по прежнему формально жив, но при обращении к нему, программа логично вылетит с AV в трубу. Хотельсь бы как-то не заморачиваться с заботой об освобождении подписоты, и просто игнорировать битые ссылки.


Ещё один момент, вместо списка указателей, у меня список самих процедур:

type
  TWriteEventProc = procedure(Event: TLogEntry; var DropEvent: Boolean) of object;
  pWriteEventProc = ^TWriteEventProc;
  TWriteEventNotify = TSubscription<TWriteEventProc>;

Может в этом дело?

Assigned и <> nil - не предлагать, не работает.

Пока что ничего интереснее чем залепить пустую try except - не придумал.
Работает конечно, однако думаю, что это не решение проблемы, а костыль

[Аватар]

Вместо массива указателей на методы держать массив указателей на объекты. Сами объекты должны уведомлять перед разрушением этот fOnWrite о своей кончине, что бы он позаботился например о сбросе в nil элемента массива. Тогда и Assigned заработает