ändere doch einfach den Aufruf, nimm es aus der automatischen Erzeugung heraus, und ändere den Zugriff auf
Delphi-Quellcode:
Function MyForm:TTheForm;
begin
if not Assigned(TheForm) then Result := TTheForm.create(Application) else Result := TheForm;
end;