Filtro en dbgrid

[[Caral]]

Hola
Dos campos en el combobox del dbgrid:
Columna 1, que es en realidad la segunda columna del dbgrid.
Ejemplo 1: Datos seguidos:

Código Delphi [-]
   AdoQuerytipo.SQL.Text := 'Select co_tipo, des_tipo From tipo_aju '; 
   AdoQuerytipo.Active := True; 
   While not AdoQuerytipo.Eof do  
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text+'     '+AdoQuerytipo.Fields[1].Text); 
     AdoQuerytipo.Next; 
   end;
    AdoQuerytipo.Active := False;

Ejemplo 2: Uno arriba del otro:

Código Delphi [-]
   AdoQuerytipo.SQL.Text := 'Select co_tipo, des_tipo From tipo_aju '; 
   AdoQuerytipo.Active := True; 
   While not AdoQuerytipo.Eof do  
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text); 
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[1].Text); 
     AdoQuerytipo.Next; 
   end;
    AdoQuerytipo.Active := False;

Es eso ?.
Saludos