Befehl immer wieder ausführen ohne CPU belastung

[Bummi]

folgender Code erzeugt bei mir keine Last, über Sinn und Unsinn kann man streiten.

Delphi-Quellcode:

procedure TForm5.Timer1Timer(Sender: TObject);
var

    fHandle: HWND;

    i:integer;

begin

    fHandle := FindWindow('notepad', nil);

    if fHandle <> 0 then
    begin
        i:=0;
        while i=0 do
        begin
            if Sender = Button2 then i:=1;
            Application.ProcessMessages;
            sleep(50);
            if GetForeGroundWindow <> fHandle then SetForeGroundWindow(fHandle);

        end;

    end;

end;