Outlook Termin mit Progressbar sendet statt einen 3 Termine

[Helmi]

Hallo,

müssten es nicht 101 Termine sein?

wenn man es besser einrückt, dann sieht man, dass 101 mal (0-100) ein Termin angelegt wird.

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
var
  i : integer;
  Ordner: string;
  Calendar: TCalendar;
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Max := 100;

  for i := 0 to 100 do
  begin
    ProgressBar1.Position := i;
    Sleep(25);
    //Application.ProcessMessages;

    Ordner := 'Testordner';
    Calendar.Start       := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Startzeit.DateTime);
    Calendar.Ende        := DateToStr(Datum.DateTime) + ' ' + TimeToStr(Endzeit.DateTime);
    Calendar.Categories  := Kategorie.Text;
    Calendar.Subject     := Betreff.Text;
    Calendar.Body        := Beschreibung.Text;
    OutlookAddCalendar(Ordner,Calendar);
  end;
end;