why it doesn't work ?

[relativ]

ftp.OnStatus := @OnStatus;

i am receiving , invalid number of parameters error.

i need help

thanks

Program IFSTest;

    procedure OnStatus (ASender: TObject;  const AStatusText: string);
    begin
        echo (AStatusText);
    end;

var
    ftp: TFTP;
    sStatus: TStringList;

Begin
    ftp:= TFTP.Create();
    ftp.OnStatus := @OnStatus;
    ftp.Host := '94.73.148.47';
    ftp.Port:=21;
    ftp.Username := 'root';
    ftp.Password := 'test';
    ftp.Connect;
    ftp.Login;
    ftp.List;
    var i: integer;
    for i:= 0 to ftp.ListResult.Count -1 do
    begin
        echo(ftp.ListResult[i]);
    end;

    ftp.Disconnect;
    ftp.free;

End.