1:
2:
3:
4:
5:
6:

            DIREKTVERSORGUNG.FindKey([Anord.FieldByName('ID').AsString]);

            DIREKTVERSORGUNG.Edit;
            DIREKTVERSORGUNG.FieldByName('KENNUNG_VERSION').AsString := GetFileVersionUndKennung(Filename);
            DIREKTVERSORGUNG.FieldByName('DV_ART').AsString := DV_Art;
            DIREKTVERSORGUNG.FieldByName('DV_DATEI').AsString := Filename;