Var
  CRect:TRect;
  Width,Height:integer;
Begin
   CRect:=Rect(10,10,50,60);
   Width:=WidthOf(CRect);//取宽度
   Height:=HeighthOf(CRect);//取高度
End;