TDBmemo einfügen geht nicht

[QuickAndDirty]

OK, sorry problem gelöst hatte ein Brett vorm Kopf

Delphi-Quellcode:

procedure Formular.DBMemoKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var s,sdt:string;
begin
  if key = VK_F5 then
  Begin
    s := TdbMemo(Sender).Text;
    sdt := DateTimetoStr(Now);
    system.insert(sdt,s,TdbMemo(Sender).Selstart);
    TdbMemo(Sender).autodisplay := false;
    tabelle.edit;
    tabelle.FieldByName(TdbMemo(Sender).Field.Fieldname).asstring := s;
    tabelle.post;
    TdbMemo(Sender).Loadmemo;
    TdbMemo(Sender).autodisplay := true;
    TdbMemo(Sender).Selstart :=  TdbMemo(Sender).Selstart+length(sdt);
  end;
end;