Здравствуйте, почему-то функция ftpOpenFile в упор не видит файла, с FtpSetCurrentDirectory тоже самое вот вырезки из проги:

InetHandle := InternetOpen(PChar('FTP'), INTERNET_OPEN_TYPE_DIRECT,
Nil, Nil, 0);
FtpHandle := InternetConnect(InetHandle, PChar('ftp.my.ru'), 21, PChar('User'),
PChar('Pasword'), INTERNET_SERVICE_FTP, 0, 0);
FtpSetCurrentDirectory(FtpHandle, PChar(FTPDir));

If FtpFindFirstFile(FtpHandle, PChar('test.php'), sRec, 0, 0) = Nil Then
Begin
ShowMessage('Ôàéë íå íàéäåí');
Exit;
End;
hFile := ftpOpenFile(FtpHandle,'test.php',
GENERIC_WRITE, FTP_TRANSFER_TYPE_UNKNOWN, 0);
Файл находится в директории котрую выбираю FtpSetCurrentDirectory, где тут может быть ошибка?

Забыл сказать : размер файла становится 0 байт.

С флагами я эксперементировал, дело в том, что FtpFindFirstFile тоже его не находит.

Результатов не дало...