procedure <AForm>.<ADataSet>AfterInsert(DataSet: TDataSet);  

var  

  I: Integer;  

begin  

  for I := 0 to <AcxGridDBTableView>.VisibleColumnCount - 1 do  

    if <AcxGridDBTableView>.VisibleColumns[I].Options.Editing then  

    begin  

      <AcxGridDBTableView>.VisibleColumns[I].Focused := True;  

      Break;  

    end;  

end;