ayuda con conversor

[gemelo]

hola,necesito ayuda sobre una pequeña aplicacion que estoy haciendo en delphi 7 para probarlo,el problema es que me da un error en las opciones del case cuando le paso los indices de un combobox os paso el codigo y el erro haber si me lo podeis aclarar,gracias.
procedure TForm1.Button1Click(Sender: TObject);
var
valor:variant;
begin
valor:=edit1.Text;
case combobox1.ItemIndex of
0:begin
case combobox2.ItemIndex of
0:begin showmessage('Elige dos modedas distintas'); end;
1:begin edit2.Text:=valor*'0.00601'; end;
2:begin edit2.Text:=valor*'0.00532'; end;
end;
1:begin
case combobox2.ItemIndex of
0:begin edit2.Text:=valor/'0.00601'; end;
1:begin showmessage('Has vuelto a elegir dos monedas iguales');end;
2:begin edit2.Text:=valor*'0.871'; end;
end
2:begin
case combobox2.ItemIndex of
0:edit2.Text:=valor*'1.13'; end;
1:edit2.Text:=valor/'0.00532'; end;
2.showmessage('No jodas ya con las monedicas iguales¡¡¡¡'); end;
end;
end.
Y los errores al compilar son los siguientes:
[Error] convert.pas(63): Undeclared identifier: '1'
[Error] convert.pas(69): Missing operator or semicolon
[Error] convert.pas(72): Label already defined: '1'
[Error] convert.pas(73): Missing operator or semicolon
[Error] convert.pas(75): Record, object or class type required
[Error] convert.pas(78): 'END' expected but end of file found