Textbausteine für Belege anlegen

[LOMBI]

Hallo,

ich möchte gerne für spätere Belege in der ABSTabelle Textbausteine anlegen.
Leider klappt das irgendwie nicht.

Delphi-Quellcode:

with QueryTexte do
    begin
    if not Locate('TxtNr', 1, []) then
    with FmTxte, MemReAnf do
    begin
      Append;
      FieldByName('TxtNr').AsInteger := 1;
      FieldByName('Zeile1').AsString := Lines[1];
      FieldByName('Zeile2').AsString := Lines[2];
      FieldByName('Bezeichnung').AsString := 'Rechnung -Anfang-';
      Post;
    end;
    ...

Gruß
Lombi