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;