Fuktion "ln" in delphi ? zu berechnung der Laufzeit.

[-Phantom-]

so ich habs hinbekommen...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ak, ek, pro, q, ergebnis : real;
begin
ak := Strtofloat(edit1.Text);
ek:= strtofloat(edit2.Text);
pro := strtofloat(edit3.Text);
q:= (pro/100)+1;
ergebnis := (ln(ek) - ln(ak)) / ln(q);
label1.Caption := floattostr(ergebnis);