Identificar parte de un dato dentro de un campo

[[Caral]]

Hola
Veis, no dolió, ahora si lo capte, era solo de tomarme la pastilla del Altz y ya.
Algún día entenderé esto de las funciones.
Gracias, ya esta resulto, la próxima vez pregunto mejor.
Para que veáis como quedo, (Use la función de Dec.):

Código Delphi [-]
procedure TFOrdenProdAcrilico.CBLaminaChange(Sender: TObject);
var
color: string;
begin
 Color:= GetLaminaType(CBLamina.Text);
 showmessage(color);
   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;
end;

Saludos