FtpSite

function FtpSite(

  Host: PAnsiChar;

  UserId: PAnsiChar;

  Passwd: PAnsiChar;

  Acct: PAnsiChar;

  SiteStr: PAnsiChar

):Integer;

function FtpSite(

  Host: shortstring;

  UserId: shortstring;

  Passwd: shortstring;

  Acct: shortstring;

  SiteStr: shortstring

):Integer;

function FtpSite(

  SiteStr: shortstring

):Integer;