funktion in eine unit auslagern

[fwsp]

so,
hier ist die ausgelagerte funktion:

Code:

unit URound;

interface

implementation

function runden(zahl : real; stellen : integer) : real;
var faktor : real;
    i      : integer;
begin
 if (zahl = 0)
  then runden := 0
  else if stellen = 0
   then
    begin
     zahl := int(zahl + 0.5);
     runden := zahl;
    end
  else
   begin
    faktor := 1;
    for i := 1 to stellen do
     begin
      faktor := faktor * 10;
     end;
    zahl := ((zahl * faktor) + 0.5);
    zahl := int(zahl);
    zahl := zahl / faktor;
    runden := zahl;
   end;
end;

end.

und hier der fehler:
[Fehler] calc.pas(533): E2003 Undefinierter Bezeichner: 'runden' und zwar bei diesem aufruf.

Code:

DLabel[s,f2,1].Caption := FloatToStr(URound.runden(erg,2));