// Apos configurar e conectar corretamente o componente IdFTP
IdFTP1.List(nil) //Carrega a lista de Arquivos encontrados no FTP for idx := 0 to IdFTP1.DirectoryListing.Count -1 do if AnsiUpperCase('NomeArquivo') = AnsiUpperCase TP1.DirectoryListing.Items[idx].FileName) then
dtArqHost := IdFTP1.DirectoryListing.Items[idx].ModifiedDate;