может я не правильно понял, но тесатовый пример работает у меня как часы - FromShow формы2 срабатывает(D6, WinXP).
Вариант №1:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a: Pointer;
begin
a := form2;
TForm(a).Show;
end;
Вариант №2:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a: TObject;
begin
a := form2;
(a as TForm).Show;
end;
Иль не то?