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

procedure Tabr2men1.FormCreate(Sender: TObject);
var
 OldFormWidth: integer;
begin
  Scaled:=true;
  if (Screen.Width <> ScreenHeight) then
  begin
    OldFormWidth:=Width;
    Height:=Longint(Height)*Longint(Screen.Height) div ScreenHeight;
    Width :=LOngint(Width) *Longint(Screen.Width) div ScreenWidth;
    ScaleBy(Screen.Width, ScreenWidth);
    Font.Size:=(Width div OldFormWidth)*Font.Size;
  end;