[[Caral]]

Hola
Bueno, aqui sigo molestando, otro asunto:
Ya consegui que me mostrara el color con la funcion, esto esta bien.
Ahora lo que necesito es que una vez que consiga el color del combo, me carge en otro combo los datos de otros productos que tienen tambien esa condicion.
Para que os deis cuenta.
1- paso:
Cargo de combobox ( LAMINA 187 X 305 BONE )
Genero la funcion y me da el color.
Esto va bien.

2- paso:
Una vez cargado el dato del color quiero que se me genere una consulta
Y que me carge en otro combobox el dato que tenga tambien la condicion de Color.
El dato es este:
IBIZA TERMOFORMADO BONE

Lo que tengo:

Código Delphi [-]
procedure TFOrdenProdAcrilico.CBLaminaChange(Sender: TObject);
var
ColorL: string;
begin
   ColorL:= GetLaminaType(CBLamina.Text);
   EColor.Text:= ColorL;
   QTemp.Close;
   QTemp.SQL.Text := 'SELECT Materiales.Disponible FROM Materiales WHERE Materiales.Descripcion = isp';
   QTemp.Parameters[0].Value:= CBLamina.Text;
   QTemp.Active := True;
   Dispon.Text:= QTemp.Fields[0].Text;

// aqui es donde lo necesito

   QTemp.SQL.Text := 'SELECT Materiales.Descripcion FROM Materiales WHERE Materiales.Notas ="TERM" ORDER BY Materiales.Descripcion';
   QTemp.Active := True;
   While not QTemp.Eof do
   begin
      CBPieza.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;
   QTemp.Active := False;
end;

Ojala me entendáis.
Saludos