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.