const
  ScreenHeight:INTEger=800;
  ScreenWidth:integer=600;

Prodedure Tform1.formcreate(Sender:tobject);
var
 x,y:Longint;
  begin
   form1.scaled:=true;
   x:=getsystemmetrics(SM_CXSCREEN);
   y:=Getsystennetrucs(SM_CYSCREEN);
  IF(X<>SCREENHEIGHT)or (Y<>SCREENWIDTH)
  BEGIN
     FORM1.HEIGHT:=FORN1.HEIGHT*X DIV SCREENHEIGHT;
     FORM1.WIDTH:=FORM1.WIDTH*Y DIV SCREENWIDTH
     SCAKEBY(X,SCREENHEIGHT);
  END
end;  

 

}