Como asignar variant a un Tedit ¿? ayuda pofavó

[marcoszorrilla]

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.

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.