procedure TForm1.Button1Click(Sender: TObject); begin Label2.Caption:=FormatFloat(',0.00',StrToFloat(Label1.Caption) * StrToFloat(Edit1.Text) /100 - StrToFloat(Edit2.Text) ); end;