[0nni]

Код:

var
  dc : hdc;
begin
dc := GetDC(0);
ShowMessage('Screen refresh rate is ' +
            IntToStr(GetDeviceCaps(dc, VREFRESH)) + ' Hz');
ReleaseDc(0, dc);

Чтобы не удивляться почему компьютер тормозит