Label1.Caption:=IntToStr(GetDeviceCaps(Canvas.Handle,HORZSIZE)); Label2.Caption:=IntToStr(GetDeviceCaps(Canvas.Handle,VERTZSIZE));