not enough actual parameters

场景：Delphi异常：not enough actual parameters

Delphi错误：not enough actual parameters
代码是这样的：
function DeleteDirectory(mSource: string;var IdFTP2:TIdFTP): Boolean; //在上传文件夹替换时用来级联删除FTP服务
  //器上同名的文件夹的函数
var i:integer;  
begin
//showMessage(IdFTP1.DirectoryListing.Items[i].FileName);
for i:=0 to IdFTP2.DirectoryListing.Count-1 do
  begin
  if IdFTP2.DirectoryListing.Items[i].ItemType=ditDirectory then
  begin
  IdFTP2.ChangeDir(mSource+'\'+IdFTP2.DirectoryListing.Items[i].DisplayName);
  DeleteDirectory(mSource+'\'+IdFTP2.DirectoryListing.Items[i].DisplayName;IdFTP2);
  IdFTP2.ChangeDir(mSource);
  IdFTP2.RemoveDir(IdFTP2.DirectoryListing.Items[i].DisplayName);
  end;
  IdFTP2.Delete(IdFTP2.DirectoryListing.Items[i].FileName);
  DeleteDirectory:=true;
  end;
end;
提示在递归调用处"not enough actual parameters"
哪位大虾帮帮忙！

------解决方案--------------------
仔细检查你所调用的过程和函数的参数，你这个错误是因为你少写了参数而造成的，
比如你定义的时候要传递2个参数，但是调用的时候仅仅传递了1个。
------解决方案--------------------
DeleteDirectory(mSource+'\'+IdFTP2.DirectoryListing.Items[i].DisplayName;IdFTP2);
分号改逗号
DeleteDirectory(mSource+'\'+IdFTP2.DirectoryListing.Items[i].DisplayName,IdFTP2);