Может, GetDeviceCaps поможет?
Получить размеры в пикселях и миллиметрах, сравнить с 96.

GetDeviceCaps - действительно, как заметил товарищ JibSkeart, функция. Если на компе установлена Delphi, должен быть файл win32hlp (или что-то около того). Функция такая:
function GetDeviceCaps(DC: HDC; Index: Integer): Integer; stdcall;
В первом параметре передаем хендл устройства (десктоп, наверное, передавать надо), во втором - константы. Константы есть такие:

DRIVERVERSION = 0; { Device driver version }
TECHNOLOGY = 2; { Device classification }
HORZSIZE = 4; { Horizontal size in millimeters }
VERTSIZE = 6; { Vertical size in millimeters }
HORZRES = 8; { Horizontal width in pixels }
VERTRES = 10; { Vertical height in pixels }
BITSPIXEL = 12; { Number of bits per pixel }
PLANES = 14; { Number of planes }
NUMBRUSHES = $10; { Number of brushes the device has }
NUMPENS = 18; { Number of pens the device has }
NUMMARKERS = 20; { Number of markers the device has }
NUMFONTS = 22; { Number of fonts the device has }
NUMCOLORS = 24; { Number of colors the device supports }
PDEVICESIZE = 26; { Size required for device descriptor }
CURVECAPS = 28; { Curve capabilities }
LINECAPS = 30; { Line capabilities }
POLYGONALCAPS = $20; { Polygonal capabilities }
TEXTCAPS = 34; { Text capabilities }
CLIPCAPS = 36; { Clipping capabilities }
RASTERCAPS = 38; { Bitblt capabilities }
ASPECTX = 40; { Length of the X leg }
ASPECTY = 42; { Length of the Y leg }
ASPECTXY = 44; { Length of the hypotenuse }
SHADEBLENDCAPS = 45; { Shading and Blending caps }

(выдрано из Windows.pas)
Ну вот, собственно, и все. Получаем значение функции с параметром VERTSIZE, получаем с параметром VERTRES. Имеем размер в пикселях и миллиметрах. Точно зная, что разрешение с нормальными шрифтами 96 dpi, можно что-то там сравнить. Надоело писать, в общем.
PS.
Этот GetDeviceCaps я использовал во времена Delphi1, Win3.1 и только для принтера.