Hola
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
b1,b2,b3,b4,b5,b6 :Real;
m1,m2,m3,m4: Real;
begin
b1:= StrToFloat(Edit1.Text) * 50;
b2:= StrToFloat(Edit2.Text) * 20;
b3:= StrToFloat(Edit3.Text) * 10;
b4:= StrToFloat(Edit4.Text) * 5;
b5:= StrToFloat(Edit5.Text) * 2;
b6:= StrToFloat(Edit6.Text) * 1;
m1:= StrToFloat(Edit7.Text) * 500;
m2:= StrToFloat(Edit8.Text) * 200;
m3:= StrToFloat(Edit9.Text) * 100;
m4:= StrToFloat(Edit10.Text) * 50;
Edit11.Text:= FloatToStr(b1 + b2 + b3 + b4 + b5 + b6 + m1 + m2 + m3 + m4);
Hay que acordarse de colocar
0 en cada edit por si alguno no contiene nada (ningun valor)
Saludos