работа с wininet.dll

[Lucky13]

Здравствуйте, господа!

Есть следующий код:

void PutFile(str 50 proxy, str 50 url, str 50 login, str 50 pass, str 50 local, str 50 remote)
{
DLL InetDll = new DLL('wininet');
DLLFunction InternetOpen = new DLLFunction(InetDll, 'InternetOpenA');
DLLFunction InternetConnect = new DLLFunction(InetDll, 'InternetConnectA');
DLLFunction FTPPutFile = new DLLFunction(InetDll, 'FtpPutFileA');
DLLFunction InternetCloseHandle = new DLLFunction(InetDll, 'InternetCloseHandle');

int res;

InternetOpen.returns(ExtTypes:Word);
InternetOpen.arg(ExtTypes::String);
InternetOpen.arg(ExtTypes:Word);
InternetOpen.arg(ExtTypes::String);
InternetOpen.arg(ExtTypes::String);
InternetOpen.arg(ExtTypes:Word);

hInternet = InternetOpen.call('Ax30', 3, proxy, '', 0);

InternetConnect.returns(ExtTypes:Word);
InternetConnect.arg(ExtTypes:Word);
InternetConnect.arg(ExtTypes::String);
InternetConnect.arg(ExtTypes::Word);
InternetConnect.arg(ExtTypes::String);
InternetConnect.arg(ExtTypes::String);
InternetConnect.arg(ExtTypes:Word);
InternetConnect.arg(ExtTypes:Word);
InternetConnect.arg(ExtTypes:Word);

hConnect = InternetConnect.call(hInternet, url, 21, login, pass, 1, 0, 0);

FTPPutFile.returns(ExtTypes:Word);
FTPPutFile.arg(ExtTypes:Word);
FTPPutFile.arg(ExtTypes::String);
FTPPutFile.arg(ExtTypes::String);
FTPPutFile.arg(ExtTypes:Word);
FTPPutFile.arg(ExtTypes:Word);

res = FTPPutFile.call(hConnect, local, remote, 2, 0);

InternetCloseHandle.returns(ExtTypes::Word);
InternetCloseHandle.arg(ExtTypes:Word);

InternetCloseHandle.call(hConnect);
InternetCloseHandle.call(hInternet);
}

Переменные hItnernet и hConnect объявлены в cassDeclaration

В таком виде данная ф-ция прекрасно работает, но хотелось бы чтобы каждая ф-ция из DLL была в отдельной ф-ции класса. В этом случае работать сразу перестает (ф-ция InternetConnect возвращает ошибку). В Delphi и VB такой механизм работает.

Где глюк????