Pointer Dereferenzierung Casting elegant?

[Looper]

Moin,

Mein Testcode zur Frage:

Delphi-Quellcode:

type
  tbruch = record
    z,n : integer;
  end;
var
  a : Tbruch;
  p : Pointer;
begin
  a.z := 1;
  a.n := 3;
  p := @a;
  ShowMessage(IntToStr(TBruch(p^).n));
end;

Ist es möglich zu prüfen worauf der Pointer zeigt?
Stelle mir das ungefähr so vor:

Delphi-Quellcode:

if (p^) is TBruch then
...

mfg Looper