Así es Roman, de hecho estaba pensando que hubiera sido mejor poner:
Código Delphi
[-]
HSize := GetDeviceCaps(DC, HORZSIZE);
Diag:=IntPower(VSize,2); VSize := GetDeviceCaps(DC, VERTSIZE);
que haber puesto una sola línea, pero bueno... Muchas veces me he topado con ese error y en muchos lenguajes diferentes y precisamente por ser el error más común fue lo que me pareció más extraño.