procedure TFMENU.CreateFormFromName(const FormName : string);
var
ObjClass: TFmxObjectClass;
NewForm: TCustomForm;
w_ModalResult:Integer;
begin
ObjClass := TFmxObjectClass(GetClass(FormName));
if ObjClass = nil then
Exit;
NewForm := ObjClass.Create(Self) as TCustomForm;
if Assigned(NewForm) then
begin
NewForm.ShowModal(
procedure(ModalResult: TModalResult)
begin
w_ModalResult:= ModalResult ;
end);
end;
end;