Screen resolution wirkt sich auf formulare aus

[WoTo]

Hallo,
versuche mal folgendes:

Delphi-Quellcode:

Scaled := true;
  x := Screen.width;
  y := screen.height;
  if (y <> ScreenHeightDev) or (x <> ScreenWidthDev) then begin
      form1.height := (form1.clientheight * y div ScreenHeightDev) + form1.height-form1.clientheight;
      form1.width  := (form1.clientwidth * x div ScreenWidthDev) + form1.height-form1.clientheight;
      scaleBy(x, ScreenwidthDev);
    end;

Gruß,
Woto