var List :tstringlist;
begin
   // comment

   list := tstringlist.create;
   try
     if
       //SynFtpGetFileList('ftp.bvsoft.nichost.ru', '21', 'bvsoft_ftp', '2wt6gycf','solr.ru',List)

       SynFtpGetFileList('ftp.stoletov.ru', '21', 'Prayd_sar', 'eqicun225','Orders',List)

       //SynFtpDeleteFile('ftp.bvsoft.nichost.ru', '21','tmp/1.txt',  'bvsoft_ftp', '2wt6gycf')

     then
       showmessage(list.text)
     else createhinte('error');
   finally
     list.free;
   end;
end.