thandle i referencje

Jak majac tylko obiekt typu THandle sprawdzic czy pochodzi on od okna danej klasy i uzyskac referencje do tej klasy. Byloby to cos w stylu:

var
hnd: THandle
ref: TMojaKlasa

begin

if hnd is TMojaKlasa then
ref := hnd as TMojaKlasa;

end;

Oczywiscie powyzszy kod jest bledny ale dobrze ilustruje moj zamiar.

pozdrawiam,
ALbi