sev_SEPA_SetProperty('XmlFormat','3');
 
   lResult := _sevSEPA_FileInit(fSeHandle, (AnsiString('L')), (AnsiString( _
     sName)), (AnsiString(sName)),
                               (AnsiString(sORGIBAN)), (AnsiString(sORGBIC)), ( _
                               AnsiString('ID-001')),
                               (AnsiString(DateToStr(sleAusf.Date))), CoreTyp, _
                               sepaTyp, (AnsiString(sGlbNummer)));
 
   ---
   // hinzufügen von x Datensätzen
   lResult := _sevSEPA_FileAddRec(fSepaCor1Handle, '00001', AnsiString( _
     AdsDTA_Fill.FieldByName('Betrag').AsString),  
                                                            AnsiString( _
                                                            AdsDTA_Fill.FieldBy_
                                                            Name( _
                                                            'KTOINH').AsString),
                                                            AnsiString( _
                                                            AdsDTA_Fill.FieldBy_
                                                            Name( _
                                                            'IBAN').AsString), 
                                                            AnsiString( _
                                                            AdsDTA_Fill.FieldBy_
                                                            Name( _
                                                            'BIC').AsString),
                                                            AnsiString( _
                                                            AdsDTA_Fill.FieldBy_
                                                            Name( _
                                                            'AnKdText').AsStrin_
                                                            g), sMnDt,
                                                            AnsiString( _
                                                            AdsDTA_Fill.FieldBy_
                                                            Name( _
                                                            'Mndt_DAT').AsStrin_
                                                            g));
 
   ---
   lResult := sevSEPA_FileEnd(fSepaCor1Handle);
   sevSEPA_CloseFile(fSepaCor1Handle);
   lResult := sevSEPA_ExportHTML(PAnsiChar(AnsiString(sSepaPath + 'SEPA_2_' + _
     DatetoStr(sysDate) + '_' + sTyp + sNum + '.htm')));