FtpDir

function FtpDir(

  Host: PAnsiChar;

  UserId: PAnsiChar;

  Passwd: PAnsiChar;

  Acct: PAnsiChar;

  Local: PAnsiChar;

  Pattern: PAnsiChar

):Integer;

function FtpDir(

  Host: shortstring;

  Userid: shortstring;

  Passwd: shortstring;

  Acct: shortstring;

  Local: shortstring;

  Pattern: shortstring

):Integer;

function FtpDir(

  Local: shortstring;

  Pattern: shortstring

):Integer;