[Kamael]

gracias a todos por responder tan rapido. Lo he solucionado de esta manera :

If Combobox1.Text = 'Aluminio' then
 begin
    lbabel1.Caption := FloatToStr(0.029) ;
  end ;

 If Combobox1.Text = 'Cobre' then
 begin
 
   Label2.Caption := FloatToStr(0.017) ;
end;

De todas maneras repasare vuestro codigo, pues me parece mas interesante que el mio