Fórum Listar diretorio FTP.put #332772

Estou tentando pegar uma listagem de arquivos do meu diretorio e jogar dentro do FTP mas não estou conseguindo e não retorna nenhuma mensagem de erro, abaixo segue o codigo

Lijst := TStringList.Create;
try
if FindFirst(´C:\teste\´ + data, faAnyFile, SearchRec) = 0 then
begin
Lijst.Add(SearchRec.Name);
while FindNext(Searchrec) = 0 do
Lijst.Add(SearchRec.name);
end;
for Index := 0 to pred(Lijst.Count) do
idFTP2.Put(Lijst[Index], ´/work/lixo/´ + Lijst[Index], true);
finally
Lijst.Free;
FindClose(SearchRec);
end;

aguém pode me dar uma mão?



Obrigado
WatchDogCWB