[Harlequin]

for i := 0 to Application.ComponentCount - 1 do
if (Application.Components[i] is TMyForm) and (TMyForm(Application.Components[i]).Handle = YourHandle) then
frm := TMyForm(Application.Components[i]);