convertir con edit y combobox

[arespremium]

Formulario
ver imagen

no me funciona me dice error en 0 : begin
es un conversor de monedas
usando la condicion "case of"

 var
valor : variant; // Definimos la variable que contendra el valor del edit
begin
valor := Edit1.text; // Asignamos el valor que el usuario a metido para convertir. 
case Combobox1.ItemIndex of // Empezamos a ver que queremos convertir
0 : Begin // SI es pesetas, ya que el item pesetas tiene el valor index = 0, pq es el 
1er item de la lista
Case Combobox2.ItemIndex of // Empezamos a ver en que quermos convertir
0 : Begin Showmessage('Escoga Monedas Distintas'); end; // Ya que intentamos 
convertir pesetas en pesetas damos error
1 : begin Edit2.text := valor * '0,00601'; end; // Convertimos en euros (1)
2 : begin edit2.text := valor * '0,00532'; end; // Convertimos en Dolares (2)
end; // Acabamos con el de convertir pesetas
1 : begin // Empezamos con el de convertir euros
case combobox2.itemindex of // Empezamos a ver en que querem
0 : begin .... end; // Convertimos en pesetas
Y bueno lo demas lo dejo de tu cuenta, la estructura supongo que 
esplicada asi que el resto tomatelo como un ejercicio el acabarlo

combobox
evento OnChange del Combobox

Label1.Caption:= ComboBox1.Items[ComboBox1.ItemIndex]; // El texto 
de la label1 será el del item seleccionado de la combobox1