Pesquisa em um campo do dbgrid

Seguinte: tenho uma dbgrid com a primeira coluna sendo o código do produto, onde o usuário vai digitar o código e presionar enter, se o produto for localizado então automaticamente ele deve posicionar o cursor sobre a coluna da quantidade de produto na dbgrid. Como faço isso? Até agora fiz isto:

procedure TForm1.DBGProdutosIKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If DBGProdutosI.SelectedField.FieldName = ´CodigoProduto´ then
begin
If Key = VK_RETURN then
begin
If DMBaseDados.CDSProduto.Locate(´CODIGO_PRO´,
?(como pegar o valor digitado na coluna), []) then
begin
?(Como posicionar o cursor para a coluna de quantidade)
end;
end;
end;
end;