Überprüfen ob ein Objekt existiert aber wie?

[nahpets]

Besser? Oder auch noch böse?

Delphi-Quellcode:

function ObjectExists(aObj: TObject): boolean;
begin
  Result := aObj <> nil;
  if Result then
  try
    Result := aObj.InheritsFrom(TObject);
  except
    Result := false;
  end;
end;