FtpSys

function FtpSys(

  Host: PAnsiChar;

  UserId: PAnsiChar;

  Passwd: PAnsiChar;

  Acct: PAnsiChar;

  Buf: PAnsiChar;

  BufLen: Integer

):Integer;

function FtpSys(

  Host: shortstring;

  UserId: shortstring;

  Passwd: shortstring;

  Acct: shortstring;

  var Buf: shortstring

):Integer;

function FtpSys(

  var Buf: shortstring

):Integer;