Argl. NIE mit = false oder = true vergleichen. Das geht in die Hose.
Und wenn radiobutton1 checked ist, kann radiobutton2 nur nicht checked sein. Also reicht es das einmal zuzuweisen.
Und auch hier NIE mit = false oder = true vergleichen. Booleans sind entweder true oder false.
Also:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// ...
ergebnis := rech(egross, radiobutton1.checked );
end;
function Tform1.rech(groesse:integer; b:boolean):integer;
begin
if b then
result := round((groesse-100)*0.9);
else
result := round((groesse-100)*0.85);
end;