Maybe it is enough to set Dialog.Form.Scaled=True
lcl\lcltaskdialog.pas line 840
Dialog.Form := TEmulatedTaskDialog.CreateNew(Application);
Otherwise line 860
aWidth := Dialog.Form.Canvas.TextWidth(Inst);
if (aWidth>300) or (Dialog.Form.Canvas.TextWidth(Content)>300) or
(length(Buttons)>40) then
aWidth := 480 else
aWidth := 420;
needs to be scaled for DPI / or relative to the screen width