[Casimiro Notevi]

y si no quieres que funcionen la teclas de flechas en el grid

procedure Tform1.grArticulosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 var	iCol : Integer;
 begin
 	if (key in [VK_DOWN,VK_UP]) then
 		exit;
 
    if key = VK_RETURN then
    begin
 	 iCol := TDrawgrid(grArticulos).Col;
 	 //iCol := grArticulos.SelectedIndex;
 	 //iCol := grArticulos.SelectedField.FieldNo;
 	 if iCol = iLastColumn then
 			...hacerloquesea...
 	 end;
 end;