[Paskal]

Привет всем
возникла задачка нужно организовать паузу при выполнении цикла
сам цикл:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var  i:integer;
begin
Panel1.Visible:=true;

     IdSMTP1.Host:=Edit4.Text;            //Хост
     IdSMTP1.Port:=StrToInt(Edit3.Text); //Порт
     IdSMTP1.Username:=Edit1.Text;     //Логин
     IdSMTP1.Password:=Edit2.Text;    //Пароль

     IdMessage1.Body.Text:=Memo1.Text; //Текст письма
     IdMessage1.From.Text:=Edit5.Text;  //От кого

     IdMessage1.Subject:=Edit7.Text;    //AnsiToutf8(subject);
      // IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[1];//Кому
      //for i := 1 to Memo2.Lines.Count do
      Label16.Caption:=IntToStr(Memo1.Lines.Count);

      For i:= 0 To Memo1.Lines.Count Do
begin
  IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[i];//Кому
     Gauge1.MinValue:=0;
     Gauge1.MaxValue:=Memo1.Lines.Count;
     IdSMTP1.Connect();
     Gauge1.Progress:=Gauge1.Progress+1;
     Label17.Caption:=IntToStr((Memo1.Lines.Count-i));
     Label13.Caption:=Memo2.Lines[i];
     if IdSMTP1.Connected = True then
     IdSMTP1.Send(IdMessage1);
     IdSMTP1.Disconnect;
end ;
Panel1.Visible:=false;
Gauge1.Progress:=0;
end;

Зар. Большое спасибо за совет

[angvelem]

Sleep, ProcessMessages.

[Paskal]

как я читал то sleep грузит процессор если я не ошибаюсь. Может есть другие варианты?

[angvelem]

Поиском пользоваться не пробовал?

[Paskal]

У меня на delphisources.ru поиск не работает пустая страница и пишет найдена циклическая ошибка. как то так вроде

[angvelem]

Вот, что даёт поиск:

Код:

procedure Delay(dwMilliseconds: Longint);
var
   iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Application.ProcessMessages;
  until (iStop - iStart) >= dwMilliseconds;
end;

и это, только один из вариантов.