расчет комплексной функции ошибка

[ovosch1992]

Ошибка. Писал формулу с логарифмом, где логарифм надо разделять, delphi ошибки эти выдал:

[Error] Unit1.pas(58): Too many actual parameters
[Error] Unit1.pas(58): Not enough actual parameters

вот код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Cmplx, Math;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n,k:integer;
Xmin,Xmax,x,h:extended;
l:complex;

begin
series1.Clear;
series2.Clear;
n:=strtoint(edit1.text);
xmin:=strtofloat(edit2.text);
xmax:=strtofloat(edit3.text);
h:=strtofloat(edit4.text);
x:=xmin;
repeat
s.re:=1;
s.im:=1;
for k:=2 to n do
begin
l:=Cplx(ln(x)-ln((power((power(-k,2)+1),1/2,arccos(-k/power((power(-k,2)+1),1/2))))));
end;
series1.AddXY(x,s.re,'', clred);
series2.AddXY(x,s.im,'',clblack);
x:=x+h;
until x>xmax;

end;
end.

[phomm]

Прочитайте справку по всем отдельным функциям в Вашей формуле

l:=Cplx(ln(x)-ln((power((power(-k,2)+1),1/2,arccos(-k/power((power(-k,2)+1),1/2))))));

и проверьте везде аргументы (количественно, но можно и качественно) на соответствие им в справке.

Разбейте эту формулу на несколько маленьких, возможно где-то напутали скобки и запятые.