// Legt ein neues Event an im ausgewählten Thema und gibt die neue id davon zurück
function TTvPlanItFrame.neuesEvent(AStartTime, AEndTime: TDateTime;
ACaption: String; ACategory: Integer): integer;
var
event: TVpEvent;
id: Integer;
begin
if VpInidatastore_Quelle.Resources.Count < 1 then begin
ShowMessage('Es muss mindestens ein Thema (=Ressource) angelegt werden. Bitte den Button "neu" klicken');
exit; end;
// Get the ID of the new event from the datastore
id := VpIniDataStore_Quelle.GetNextID('Events');
// id := self.VpIniDatastore_myLinkDazu.get.GetNextID('Events');
// Add the event...
event := VpIniDatastore_Quelle.Resource.Schedule.AddEvent(id, AStartTime, AEndTime);
// ... and specify some properties
event.Description := ACaption;
event.Category := ACategory;
event.Changed := true;
// Save the event in the datastore
VpIniDatastore_Quelle.PostEvents;
end;