Загрузка процессора

[Syred]

procedure Delay(ms : longint);
var
 TheTime : LongInt;
begin
 TheTime := GetTickCount + ms;
while not Application.Terminated and (GetTickCount < TheTime) do
 Application.ProcessMessages;
 Sleep(20);
end;

procedure Thread1.Execute;
begin
 Synchronize(as1);
end;

procedure Thread1.as1;
begin
 while stop1 = false do
  begin
   keybd_event(32, 57, 0, 0);
   keybd_event(32, 57, KEYEVENTF_KEYUP, 0);
   Delay(2000);
 end;
end;

Вот это дело грузит процессор на 100%, в чем проблема?

[Ring0Sn]

ProcessMessages попробуй убери. Вообше, при таком раскладе, переполнение стэка должно происходить вроде... проверь