Как уменьшить загруженность процессора?

[Д'якон]

Ну а вообще по идеи нагрузка может и не уменьшится, но сообщения в потоке с более высоком приоритетом и остальные проги - не пострадают во время своего выполнения.

[Paul Hindenburg]

Сообщение от Д'якон

ну это спорный вопрос, необходимо проверить на практике + на всяк случай можно использовать sleep(0) в данном цикле

отлично, сделаю проект с двумя циклами подсчета суммы, циклы должны просчитываться в двух потоках, и сама форма должна при этом свободно - без задержек перемещаться, вот только с приоритетами.... загрузка будет под 100%

[KORN]

var
  stop: boolean=false; // глобальная переменная

procedure TForm2.Button1Click(Sender: TObject);
var
i,y:integer;
begin
stop:=false;
y:=0;
for I := 0 to 100000 do
begin  
  if stop then
  exit;
  y := i+y;
Application.ProcessMessages;  
  sleep(12);
Form2.Caption := inttostr(y);
end;
end;

procedure TForm1.OnClose(sender: Tobject);
begin
  stop:=true;
end;

при закрытии программы она выйдет из цикла

[Paul Hindenburg]

Спасибо KORN твой вариант наиболее опитмальный