Проверка существования файла на FTP сервере

[RUSlan48]

Подскажите, пожалуйста, как можно проверить существование файла на FTP сервере, кроме указанного ниже способа (или как его исправить)

Используя Indy (id:TidFTP)

function TForm1.FTPFileExists(const RemoteFileName: String): Boolean;
var i:integer;
begin
  Id.List (nil, '-la '+RemoteFileName);
  Result:=Id.DirectoryListing.Count > 0;
end;

если проверять этим способом, то если файл есть на сервере, то всё ок, а вот если его там нету, то почему-то вылетает ошибка 'No such file or directory'

И ещё вопрос: можно ли получить список всех файлов на сервере, используя Id.List или Id.DirectoryListing?
Я сколько искал в интернете, нашёл только через http, но хочется через ftp

[RUSlan48]

Ну что, неужели никто не знает???

[exn]

ну и отлавливай исключение

[_Den_1984]

function TForm1.FTPFileExists(const RemoteFileName: String): Boolean;
var i:integer;
begin
try
Id.List (nil, '-la '+RemoteFileName);
Result:=Id.DirectoryListing.Count > 0;
except
showmessage('error');
end;
end;

[RUSlan48]

да, я так и написал уже

function TForm1.FTPFileExists(const RemoteFileName: String): Boolean;
var i:integer;
begin
 try
   Id.List (nil, '-la '+RemoteFileName);  
   Result:=Id.DirectoryListing.Count > 0;
 except
   Result:=false;
   showmessage('error');
 end;
end;

Но, если запускать не из delphi, а сам exe'шник, то (если файла нет) выполняется
showmessage('error')
потом вылетает "List index out of bounds (-1)" и программа ведёт себя так, как-будто Result=false...

а если из delphi, то "No such file or directory"

[_Den_1984]

Если честно, всегда передаю результаты листинга файлов в отдельный TStringList, мне так удобнее анализировать да и ошибок пока не было .
вот как то так idFTP1.List(SList,'*.*',false);