No veo bien el planteamiento pero debes de utilizar una variable Double y no Variant como estás haciendo. Pero te adjunto algunas correcciones al código.
Código:
var
valor: Double; //<== El problema empieza aquí
begin
valor:=StrToFloat(Edit1.Text);
//
0 :ShowMessage ('Escoja monedas distintas');//solo tiene una línea no es necesario Begin...end
1 :Edit2.Text:=FloatToStr( valor * 0.00601);
Un Saludo.