Solved 😀
procedure TDMT.ShowListStart(TTl: STring);
Var
F : TUniForm;
RollingStone : TUniHTMLFrame;
Begin
F := TUniForm(UniApplication.FindComponent('MyShowListName'));
if Assigned(F) then
FreeAndNil(F);
F := TUniForm.Create(UniApplication);
With F Do
Begin
AlignmentControl:=uniAlignmentServer;
ClientHeight := 512 ;
ClientWidth := 1248;
OldCreateOrder := False ;
Width:=Round(Screen.Width/4);
Height:=Round(Screen.Height/2);
Left:=Screen.Width-Round(Screen.Width/8);
Top:=Screen.Height-Round(Screen.Height/4);
Position:=poScreenCenter;
BorderStyle:=bsSingle;
BorderIcons:=[biMaximize,biSystemMenu];
Name:='MyShowListName';
KeyPreview:=True;
Rtl:=False;
Caption:='';
CaptionAlign:=taCenter;
FormStyle:=fsStayOnTop;
OnKeyDown:= KeyDownConfig;
Caption:=TTl;
FreeOnClose:=True;
End;
RollingStone:=TUniHTMLFrame.Create(F);
With RollingStone Do
Begin
Parent:=F;
AlignWithMargins := True;
RTL := True;
Align:=alClient;
AutoScroll := True;
Name:='MyShowListRollingStoneName';
end;
F.Show;
End;