ShowModal, skærmbilledets bredde og højde kontra tema

Vedr. problem med modale skærmbilleders størrelse.

Har en standard om at der er 8 pixel margin til/fra synlige komponenter, dette beregnes manuelt og styres således i FormCreate:

Height:= 312*LargeFontsFactor;
Width:= 366*LargeFontsFactor;

LargeFontsFactor får en værdi ud fra var param i denne funktion:
function LargeFonts(var Factor : double) : boolean;
// Returnerer om systemet benytter en fontstørrelse <> SmallFonts
// Der returneres yderligere hvilken størrelsesfaktor i forhold til SmallFonts der benyttes
begin
  Factor:= 1;
  Result:= false;
  if Screen.PixelsPerInch > 96 then
  begin
    Result:= true;
    Factor:= Screen.PixelsPerInch / 96;
  end;
end;

Dette virker normalt fint, men i nogle 'Windows temaere' bliver Height og Width beregnet for småt hvorved skærmbillederne bliver for lille!

Er der mon nogle der har en idé til en løsning?

Tak for evt. svar.