Ich begreife nicht ganz, was hier so schwer fällt.
Und insbesondere nicht, warum du es nicht mit Format() versuchst!
Also, hier mal ein Beispiel
Delphi-Quellcode:
label1.caption:=floattostr(3.7/3.7); // label zeigt 1
label2.caption:=floattostr(3.7/3.70101010); // label zeigt 0,9997270....
label3.Caption:=format('%2.0f',[3.7/3.70101010]) // label zeigt 1
Abgesehen davon, dass 3.7 / 3.7 tatsächlich 1 ergibt, kann mit
Format() dein Rundungsproblem gelöst werden
Korrekter, als den Rundungsfehler am Ende zu korrigieren, wäre es, die Berechnung schrittweise durchzugehen und die Zwischenergebnisse zu überprüfen. Vielleicht muss ja ein krummer Wert 'rauskommen, vielleicht aber auch nicht.
Gute Nacht für Heute