добавить запись в грид

Пойду по-порядку. При вводе числа в первую ячейку грида перемещаюсь в последнюю для ввода следующих данных. После чего нужно на добавить новую строку в грид. Но не получается доработать. Прошу совета...

procedure TFVedom.cxGrid1DBTableView1EditKeyDown(Sender: TcxCustomGridTableView;
  AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin
ADOVedom.Locate('Num2', cxGrid1DBTableView1.DataController.DataSet.FieldByName('Num2').AsString,[]);
ADOVedom.Edit;
with DM1.IVNames do
begin
ADOVedom.FieldByName('Num').Value:=FieldByName('Num').Value;
ADOVedom.FieldByName('Num3').Value:=FieldByName('Num2').Value;
ADOVedom.FieldByName('ComisNum').Value:=FieldByName('ExecNum').Value;
ADOVedom.FieldByName('ExNum').Value:=FieldByName('Type').Value;
end;
end;
if (key=13) and (cxGrid1DBTableView1.Controller.FocusedColumnIndex=0) then
cxGrid1DBTableView1.Controller.FocusedColumn:=cxGrid1DBTableView1.Columns[6];
end;

Читаем про методы Post, Append и иже с ними.

я пробовал

if (key=#13) and (cxGrid1DBTableView1.Controller.FocusedColumnIndex=6) then
begin
ADOVedom.Append;
cxGrid1DBTableView1.Controller.FocusedColumn:=cxGrid1DBTableView1.Columns[0];
end;

но что-то мне не нравится такой вариант...

1. В грид нельзя добавить строку!
2. Не нравится Append пиши Insert :)
3. Что именно не получается доработать?

drak

я пробовал if (key=#13) and (cxGrid1DBTableView1.Controller.FocusedColumnIndex=6) then begin ADOVedom.Append; cxGrid1DBTableView1.Controller.FocusedColumn:=cxGrid1DBTableView1.Columns[0]; end; но что-то мне не нравится такой вариант...

Читаем про методы Post, Append