Zitat von
o0o:
brutto := (netto div 100) * prozent;
Delphi rechnet zuerst die Klammer. Und nimmt das Integer Ergebnis (bereits gerundet) mal den Prozentsatz.
Probiere mal
brutto := Round((netto / 100) * prozent);
Hier rundet Delphi erst am Ende. Sollte so gehen.