Windows delay problem

Мэргэжил нэгт нөхөд минь ээ надад нэг асуудал тулгараад байна. Delphi дээр sleep(1) гэсэн sleep(10) гэсэн хоёр ямарч ялгаагүй хугацаа зарцуулаад байна. Дан ганц Delphi биш C# дээр бас энэ асуудал гарч байсан. Уул нь sleep(1) нь 1 миллисекунд, sleep(10) нь 10 миллисекунд хугацаа зарцуулмаар юм. Гэхдээ бас дандаа ийм бишээ. Хааяа зүгээр болчихдог. Энэ их сонирхолтой байгаамаа. Яг юунаас шалтгаалаад ийм гажиг үүсээд байгааг би сайн мэдэхгүй байна. Та нарт ийм асуудал тулгарч байсан уу?

Энийг зүгээр болгодог нэг тохиолдол олсон л доо. Өөрийн компьютер дээрээ Virtual Machine (VMWare) ажиллуулахаар зүгээр болчихдог юм байна лээ.

Энэ асуудлыг шийдэх арга байна уу? Туслаарай.

Delphi код

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TMProgrsThread = class (TThread)
FX, FY, FDelay: integer;
procedure Execute; override;
constructor Create(AX, AY, ADelay: integer);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TMProgrsThread.Create;
begin
inherited Create(False);
FX:=300;
FY:=AY;
FDelay:=ADelay;
FreeOnTerminate:=True;
end;

procedure TMProgrsThread.Execute;
begin
while not Terminated do begin
if FX>0 then FX:=FX-1 else FX:=300;
Form1.Canvas.Lock;
Form1.Canvas.Rectangle(FX, FY, FX+50, FY+50);
form1.Canvas.Unlock;
Sleep(FDelay);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t1, t2: TMProgrsThread;
begin
t1:=TMProgrsThread.Create(10, 30, 1);
t2:=TMProgrsThread.Create(10, 100, 10);
end;

end.