[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;

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