[microbiano]

no entiendo bien tu pregunta que es lo que quieres hacer juntas todos esos registros en un combo?,

yo utilizo este codigo para gardar registros de una base de datos en un Tcombobox, concatenando varios campos, espero te pueda ayudar

Código Delphi [-]
procedure carga_claves();
var wlicitacion: string;
begin
wlicitacion:=trim(fcaptura.txtlicitacion.Text);
if wlicitacion<>'' then
 begin
  with fmodulo.Qry_gral do
   begin
    sql.Clear;
    sql.add('select licitacion,gpo,gen,esp,dif,var from requerimiento');
    sql.add('where licitacion=:licitacion');
    sql.add('group by licitacion,gpo,gen,esp,dif,var');
    parameters.ParamByName('licitacion').Value:=trim(wlicitacion);
    try
      Open;
      fcaptura.cb_clave.Clear;
       if not Fmodulo.Qry_gral.IsEmpty then
        begin
         while not  fmodulo.Qry_Gral.Eof do
          begin
           fcaptura.cb_clave.Items.Add((fieldByname('gpo').AsString)+(fieldByname('gen').AsString) + (fieldByname('esp').AsString) + (fieldByname('dif').AsString) + (fieldByname('var').AsString));
           next;
          end;
        end;
     except
      on E:EOleException do
       begin
        // error
        MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
       end;
     end;
   end;
 end;
end;