type TDumClass=class(TDBRichEdit)
    procedure WndProc(var Message: TMessage); override;
end;    { TDumClass }    procedure TDumClass.WndProc(var Message: TMessage);
begin
  if (not (csDesigning in ComponentState))and
     (Message.Msg = WM_KEYDOWN)and
     (Message.WParam > 128 )and
     (Field<>nil) then
      Field.DataSet.Edit;
  inherited;
end;