Советуем ознакомиться с Help topic относительно глобального обьекта Screen типа TScreen.
У этого обьекта есть свойства Width и Height.
{ Example }
begin
iScreenWidth := Screen.Width;
end;
Заодно и другие свойства могут Вас заинтересовать, например, Fonts и Cursors.