ActiveDelphi

[oiselcroo]

bom dia a todos, gostaria fazer essa função pro android, alguém pode me ajudar, desde já agradeço a todos.

procedure TfrmPrincipal.CriaFormComNome(strClass: string);
var
obj: TForm;
frmClass: TFormClass;
begin
frmClass := TFormClass(FindClass(strClass));
try
Obj := FrmClass.create(Self);
Obj.ShowModal;
finally
FreeAndNil(Obj);
end;
end;

[oiselcroo]

initialization RegisterFmxClasses([TForm10]);

em que local do unit ou do projeto que faço isso, desde já pela ajuda