{
BoundsRect example
This code resizes the active control to twice as wide and 
half as high:
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  MyRect: TRect;
begin
  MyRect := ActiveControl.BoundsRect;
  MyRect.Right := MyRect.Left + 2 * (MyRect.Right - MyRect.Left);
  MyRect.Bottom := MyRect.Top + (MyRect.Bottom - MyRect.Top) div 2;
  ActiveControl.BoundsRect := MyRect;
end; 
