Adicional Registro

[simon]

marcos disculpa todas las molestia pero creo que ya estamos llegando donde queremos.

cuando preciono el boton de insetar, el DBGrid me deja que digite la primera linea del DBGrid correctamente y me inserte una nueva lienea, pero me enconde la linea que digite, cuando estoy digitando en la segunda linea en el ultimo registro del DBGrid que en este caso es la cantidad del articulo como tengo un campo calculado el cual automaticamente me calculo el precio por la cantidad en esa parte es donde me esta dondo el error.
estoy ulizando este codigo en el onkeypress de la forma.

 
procedure TFrm_Pedidos.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
      if not (ActiveControl is TDBGrid) then begin
      Key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
      end
   else if (ActiveControl is TDBGrid) then
   with TDBGrid(ActiveControl) do
   if selectedindex < (fieldcount -1) then
      selectedindex := selectedindex +1
   else
      selectedindex := 0;

ya no se como disculparme por las tantas molestia pero si no puedo resolver dejare ese paso asi y mucha gracias de todo modo.