[NumLock]

А альтернативные методы тоже не помогают?

Код:

var
  dc: HDC;
begin
  Edit1.Text:=IntToStr(Screen.Width);
  Edit2.Text:=IntToStr(Screen.Height);
  //
  Edit3.Text:=IntToStr(GetSystemMetrics(SM_CXVIRTUALSCREEN));
  Edit4.Text:=IntToStr(GetSystemMetrics(SM_CYVIRTUALSCREEN));
  //
  Edit5.Text:=IntToStr(GetSystemMetrics(SM_CXFULLSCREEN));
  Edit6.Text:=IntToStr(GetSystemMetrics(SM_CYFULLSCREEN));
  //
  dc:=GetDC(0);
  Edit7.Text:=IntToStr(GetDeviceCaps(dc, HORZRES));
  Edit8.Text:=IntToStr(GetDeviceCaps(dc, VERTRES));
  ReleaseDC(0, dc);
end;