Акжан в сети - На уровень вверх(VCL) Как узнать текущее разрешение экрана?

Советуем ознакомиться с Help topic относительно глобального обьекта Screen типа TScreen.

У этого обьекта есть свойства Width и Height.

{ Example }
begin
  iScreenWidth := Screen.Width;
end;

Заодно и другие свойства могут Вас заинтересовать, например, Fonts и Cursors.