Outlook item Kalender reserviertes Wort end verwenden

[ingo.neumann]

Hallo Zusammen - Schwarmwissen gefragt:

Mit folgenden Code erstelle ich einen neuen Termin in einem freigegebenen Kalender in Outlook.

Delphi-Quellcode:

procedure Tvkprojekt_kalendereintrag.BitBtn1Click(
  Sender: TObject);
const
  olFolderCalendar = $00000009;
var
  OutlApi1, 
  Namespace, 
  NeuTermin : Olevariant;
  Postfach1,
  TerminRoot, 
  TerminFolder : Olevariant;
  mailauswahl,
  sonderfeld : string;
begin
       // Projekttermin in Outlook übernehmen
       mailauswahl := '[e-mail]';
       OutlApi1 := createoleobject('Outlook.Application');
       NameSpace := OutlApi1.getnamespace('MAPI');
       Postfach1 := Namespace.createrecipient(mailauswahl);
       TerminRoot :=  namespace.getshareddefaultfolder(
          Postfach1,olFolderCalendar);
       TerminFolder := TerminRoot;
       NameSpace.Logon('', '', False, False);
       NeuTermin := TerminFolder.items.add;
       NeuTermin.subject := edit1.text;
       NeuTermin.location := edit2.text;
       NeuTermin.alldayevent := checkbox1.checked;
       NeuTermin.start := datetimepicker1.date;
       NeuTermin.end := datetimepicker3.date+1;

   NeuTermin.display;
   NameSpace.logoff;
   OutlApi1 := Unassigned;
   close;
   // Ende Projektkontakt in Outlook übernehmen

end;

Nun mein Problem:
Für das Ende eines Termins muss das item.end in Outlook gefüllt werden, dies interpretiert Delphi
natürlich als Ende der Routine, da ja ein reserviertes Wort.
Das kuriose, der komplimierte Code funktioniert, nur funktioniert die automatische Quellcodeerweiterung
nicht mehr.

Weiß jemand einen Rat - stehe auf dem Schlauch...