Wenn du ein falsches Ergebnis bekommst, dann wird es wohl was mit der Formel auf sich haben. Rechne das mal mit einem Taschenrechner oder Excel nach.
Delphi-Quellcode:
ErgebnisPas1 := (Pas1B + Pas1W) * Volumen_Bier_Wein * Prozent_Bier_Wein/100.0 + (Pas1S * Volumen_Sprit * Prozent_Sprit/100.0);
LblErgebnis.caption := floattostr (ErgebnisPas1 * 52);