Delphi-Quellcode:
Var
p : ^TForm;
Begin
p := @Application.MainForm;
p^:= MyNewMainForm;
Es könnte klappen, weil die Eigenschaft 'MainForm' keine Getter-Methode hat, sondern direkt auf der privaten Variable 'FMainForm' aufsetzt. Schön ist das aber nicht.