Label1.Caption:=IntToStr(GetDeviceCaps(Canvas.Handle,HORZRES)); Label2.Caption:=IntToStr(GetDeviceCaps(Canvas.Handle,VERTZRES));