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
MessageDlg(Format('Error: %s Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
end;
end;
end;
end;
end;