delphi控件同比率缩放

if (screen.width<>orignwidth) then  
  begin    
    height:=longint(height)*longint(screen.height)div orignheight; 
    width:=longint(width)*longint(screen.width)div orignwidth;    
    scaleby(screen.width,orignwidth);  
  end;