Problem mit einer Funktion!

[cruso]

Hi!

Wie kann ich diese Funktion aufrufen:

Delphi-Quellcode:

function Pileibniz(Summandenzahl : integer):extended;
var
i, summand : integer;
begin
summand := 1;
result := 0;
for i:=1 to summandenzahl do
begin
result := result + (1/summand);
if   (1-summand) < 1 then summand := -1 * (summand+2)
else summand := -1 * (summand-2);
end;
result := result * 4;
end;

Ich hab irgendwie schon alles versucht aber der Compiler meldet trotzdem Fehler (kann auch an mir liegen )! Wie kann ich das standardmäßig machen?

[Matze]

Hallo, ändere bitte deinen Titel, damit man weiß, um was es geht.

Delphi-Quellcode:

//Aufruf
Extended_Zahl := Pileibniz (Integer_Zahl);

Nachtrag: Es heißt "standard"