подскажите функции для работы с ftp

external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );

int open, _close, connect, file, catalog;

string ftp="zireael.zzz.com.ua"; // фтп, исправить на свой
string login="логин"; // исправить на свой
string pass="пароль"; // исправить на свой

open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
catalog=FtpSetCurrentDirectory(connect, ftp);
file=FtpGetFile(connect, "time.txt", "time.txt", 0, 0, 0); // скачать файл time.txt в папку с кибор
_close=InternetCloseHandle(connect);

external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll" );
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll" );
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll" );
external(INT, "FtpSetCurrentDirectory", "FtpSetCurrentDirectoryA", "Wininet.dll" );
external(INT, "FtpGetFile", "FtpGetFileA", "Wininet.dll" );

external(INT, "InternetGetLastResponseInfo", "InternetGetLastResponseInfoA", "Wininet.dll" );

int open, _close, connect, file, catalog;
string ftp="zireael.zzz.com.ua"; // фтп, исправить на свой
string login="1111"; // исправить на свой
string pass="2222"; // исправить на свой

char c[9999];
int error, size_c=sizearray(c);
open=InternetOpen("Microsoft Internet Explorer", 0, 0, 0, 0);
if(open)
{
connect=InternetConnect(open, ftp, 21, login, pass, 1, 134217728, 0);
if(connect==0)
{
InternetGetLastResponseInfo(address(#error), address(#c[0]), address(#size_c));
messagebox(format(#c[0], size_c));
}
_close=InternetCloseHandle(connect);
}