IdFTP : Закачка папки на сервер

[Gdasar]

Здравствуйте.
Есть функция рекурсивной закачки папки на ftp сервер

void LoadFileAndDir(TIdFTP *ftp, String PathMain, String PathServer)
{
	TSearchRec SR;
    // переходим в новую директорию на сервере
	ftp->ChangeDir(PathServer);
	if(FindFirst(PathMain + "*.*", faDirectory, SR) == 0)
	{
		std::auto_ptr<TStringList> PS(new TStringList);
        std::auto_ptr<TStringList> PM(new TStringList);
		do
		{
			if(SR.Name == "." || SR.Name == "..")
			{
				continue;
			}
			// если это директория
			if((SR.Attr & faDirectory) == faDirectory)
			{
				PS->Add(SR.Name + "/");
				PM->Add(SR.Name + "\\");
                // создаем новую директорию на сервере
				ftp->MakeDir(SR.Name);
			}
			// это файл
			else
			{
				// закачиваем файл
				ftp->Put(PathMain + SR.Name, SR.Name);
			}
		}
		while(FindNext(SR) == 0);
        // закачиваем найденные директории
		for(int i = 0; i < PS->Count; i++)
		{
			LoadFileAndDir(ftp, PathMain + PM->Strings[i], PathServer + PS->Strings[i]);
		}
	}
	FindClose(SR);
}

Функция не работает. Хотя, если поставить точку останова на

ftp->Put(PathMain + SR.Name, SR.Name);

то компилятор на ней останавливается.
Помогите, пожалуйста, разобраться.
В функцию передаются следующие параметры:
1) Объект IdFTP
2) Путь до папки с файлами на компьютере(C:\Users\Ops\Desktop\key s\)
3) Каталог на ftp сервере(/)