Yo lo he trabajado así , y funciona correctamente ! espero que le sea de ayuda .
Código:
procedure TForm1.dbgrd1CellClick(Column: TColumn);
begin
if cbbOpciones.ItemIndex =1 then
begin
txtNombre.Text := Column.Field.DataSet.Fields[1].Value;
txtCompanyName.text := Column.Field.DataSet.Fields[2].Value;
txtCompanyId.Text := Column.Field.DataSet.Fields[3].Value;
txtCountry.Text := Column.Field.DataSet.Fields[4].Value;
end
else if cbbOpciones.ItemIndex =2 then
begin
txtCompanyId.Text := Column.Field.DataSet.Fields[3].Value;
end;
end;