procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
with DBGrid1.DataSource.DataSet do
if FieldByName('lista').AsString = 'V' then
ComboBox1.ItemIndex := 0
else if FieldByName('lista').AsString ='VM' then
ComboBox1.ItemIndex := 1
else
ComboBox1.ItemIndex := -1;
end;