Снова и снова.

[ladose]

Имеется данный код:

var
iX, iY, fov: Integer;
HD: HWND;
sDC: hDC;
begin
HD := FindWindow(nil,'123');
fov:=StrToInt(123.Text);
sDC:=GetDC(HD);

if HD <> 0 then
if (HD <> 0) and (HD <> HD) then
begin
  sDC := GetDC(HD);
  HD := HD;
 end;

fov:=StrToInt(123.Text);
if GetForegroundWindow=HD then
if GetAsyncKeyState(01) <> 0 then
begin
for iX:=0 to fov do
for iY:=0 to fov do
if GetPixel(sDC,iX,iY)=RGB(0,144,0) then
begin
SetCursorPos(iX,iY);
Sleep(StrToInt(123.Text));
end;
end;
end;

Это что-то типо само наводки, дело в том что после работы 2 минут, скомпилированный образец зависает, ЦП у компьютера поднимается до 70.
Что скажите делать?

WINDOWS 7.

[__123]

Если эта функция выполняется много раз (таймером например), то
HD := FindWindow(nil,'123');
fov:=StrToInt(123.Text);
sDC:=GetDC(HD);
надо вызывать 1 раз, в OnCreate, например.