[[duilioisola]]

Código Delphi [-]
dm1.IBQuery1.SQL.clear;
textosql := 'select nom_equipo,desc_equipo,cod_equipo from equipos where cod_equipo like " ' + combobox4.text + '%"' + ' order by cod_equipo asc';
dm1.ibquery1.sql.Text := textosql;
dm1.IBQuery1.Open;
with dm1.IBQuery1 do 
begin 
  while not eof do 
  begin 
    combobox3.Items.Add(fields[0].AsString);
    combobox5.Items.Add(fields[2].AsString);
    next;
  end;
end;