procedure openTemplates; var aRTF: TAdapterRTF; begin aRTF := TAdapterRTF.Create; try aRTF.SourceComp := 'MenuDocVorlagen'; // An welchem Eintrag hängen die Vorlagen aRTF.SourceID := self.DI_ID; // An welcher ID hängen die Vorlagen aRTF.CO_ID := self.CO_ID; // Den Mandanten, falls Vorlagen Mandantenbezogen erstellt wurden aRTF.DefaultStorageType := 'Einheitenablage'; // Standard Ablagetyp bei Anlage einer neuen Vorlage aRTF.AddPrimaryDataSet(TableEinheit, 'Einheiten Daten', 'Einheitenablage', Grideinheit.SelectedRows); aRTF.AddDataSet(TableMieter, 'Mieter bzw. Eigentümer Daten', 'Einheitenablage', GridMieter.SelectedRows); aRTF.TemplateListdlg; //Vorlagensystem aufrufen finally aRTF.Free; end; end;