1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TMonatmenue.FormCreate(Sender: TObject);
var
  x, y : integer;
begin
  Scaled := true;
  x := Screen.width;
  y := screen.height;
  if (y <> ScreenHeightDev) or (x <> ScreenWidthDev) then begin
      FInfo.height := (FInfo.clientheight * y div ScreenHeightDev) + FInfo.height-FInfo.clientheight;
      FInfo.width  := (FInfo.clientwidth * x div ScreenWidthDev) + FInfo.height-FInfo.clientheight ;
      scaleBy(x, ScreenwidthDev);
  end;
end;					

1:
2:
3:

 
Horizontale_Aufloesung := Screen.Width;
Vertikale_Aufloesung := Screen.Height;