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".
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption:=FormatFloat(',0.00',StrToFloat(Label1.Caption) * StrToFloat(Edit1.Text) /100);
end;
Un Saludo.