Opløsning?

Der er en global Variable(object), jeg mener den hedder screen.width og screen.height..

Procedure  TSystemInfoForm.GetVideoInfo;
var
  dc      : hDC;
  iPlanes : Integer;
  iBits  : Integer;
  iColors : Integer;
begin
  try
    dc := GetDC(0);
    iPlanes := GetDeviceCaps(dc, PLANES);
    iBits  := GetDeviceCaps(dc, BITSPIXEL);
    iColors := 1 shl (iPlanes * iBits);
  finally
    ReleaseDC(0, dc);
  end;
  LabelVideoManufactor.Caption := 'N/A';
  LabelVideoResolution.Caption := IntToStr(Screen.Width) + ' x ' +
                                  IntToStr(Screen.Height);
  LabelVideoColor.Caption      := IntToStr(iColors) + ' (' +
                                  IntToStr(iBits) + ' bit)';
end;