limpiar combobox

[m8estrella83]

Hola !

Tengo un combobox con dos opciones, y un DBgrid que muestra los resultados de un query, y necesito que cuando den doble clic sobre un registro, el combobox muestre el dato que le corresponde del query yo puse el siguiente codigo.

Código Delphi [-]
if query1.fieldbyname('lista').asstring <> '' then
begin

 if query1.fieldbyname('lista').asstring = 'V' then
   begin
   combobox2.ItemIndex:=0;
   end;

 if query1.fieldbyname('lista').asstring = 'VM' then
   begin
   combobox2.ItemIndex:=1;
   end;

end
else
 begin
 combobox2.Text:='';
 end;

Si muestra los datos en el combobox, pero si algún registro tiene el campo "lista" vacío el combobox se limpia y cuando vuelvo a dar clic a otro registro que si tiene el dato este no aparece en el combobox.


no he podido saber cual es el problema.

espero me puedan ayudar se los agradecería mucho.