Outlook Termin mit Progressbar sendet statt einen 3 Termine

[blondervolker]

Ja,Danke.

Aber mit drei Terminen musste ich den Code verschieben bzw.vertauschen.
Jetzt geht es wieder.

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
var
  i : integer;
  Ordner: string;
  Calendar: TCalendar;
begin
    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);
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Max := 100;

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