Saber pulgadas de un monitor

[ContraVeneno]

Pues se supone que yo tengo un monitor de 15 pulgadas (configurado a 1024x768) y me da el mismo resultado: "320x240 15.75 pulgadas". Y según pitagorin parace que esta bien el cálculo.

Por otro lado, por alguna extraña razón no puedo usar la función IntPower me marca "missing operator or semicolon" en la línea:
Diag:=IntPower(VSize,2);

si, agregue la unidad Math.