Прога выполняемая через определенный интервал

[Sparky]

Вообщем нужно выполнять действия через 60 минут, написала следующее:
var
i,flag:integer;
my:TSystemTime;
begin
i:=0;
flag:=0;
while i=0 do
begin
GetSystemTime(my);
if (my.wMinute=56) and (flag=0) then
begin
ShellExecute(self.Handle,nil,'c:\Lo g.bat',nil,nil,SW_RESTORE);
flag:=1;
end
else if (my.wMinute<>56) and (flag<>0) then
flag:=0;
end;
end;

Можно ли как-то это оптимизировать чтобы не так сильно грузился процессор?

[Greblin]

Через delay() можно попробовать. А вообще лучше переписать на дельфи и сделать там Timer

[Sparky]

спасибо, попробую