Merkwürdigkeit mit Sleep()

[Shark99]

Code:

Delphi-Quellcode:

var t1,t2: TDateTime;
begin
    t1 := now;
    Sleep(1000);
    t2 := now;
    ShowMessage('time passed (ms): '+inttostr(round((t2-t1)*100000000)));
end;

Ich habe eigentlich erwartet dass ein Sleep(1000) etwa 1000ms dauert (vielleicht paar ms mehr).

In dem kleinen Beispielcode vergeht jedoch auf meinem System 1160.

Hat jemand eine Erklärung dafür?

Wie kann ich wirklich exakt 1 Sekunde warten?