Die Zeilen eines TMemo in die Datenbank (Tabelle) speichern

[LOMBI]

Seit einiger Zeit versuche ich die Einträge eines TMemos zeilenweise in die ABSTabelle zu speichern, aber ohne Erfolg:

Delphi-Quellcode:

procedure TDemoForm.BtnSpeichernClick(Sender: TObject);
begin
  with DatenModel, QueryKTxt do
  begin
  Append;
  FieldByName('Zeile1').AsString := Memo1.Lines[0];
  ...
  Post;
   end;
end;

Über Hilfe würde ich mich sehr freuen!

Gruß
Lombi