[ContraVeneno]

Así es Roman, de hecho estaba pensando que hubiera sido mejor poner:

Código Delphi [-]
  HSize := GetDeviceCaps(DC, HORZSIZE);
  Diag:=IntPower(VSize,2); //Error en esta línea
  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.