Duda con los porcentajes en un label

[marcoszorrilla]

Aquí tienes otro ejemplo:

Omito las comprobaciones necesarias, es decir asegurarse primero que en"Label1" realmente hay un número válido, lo mismo que en "Edit1".

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

Un Saludo.