Hola nuevamente Luis Alberto,
puedes usar el componente IdFTP. Tiene una propiedad llamada list a la que le puedes pasar por parámetro una máscara con la extensión que tu quieras para que te filtre los ficheros de dentro del directorio.
Un ejemplo será más claro.
Código Delphi
[-]
function FTP;
Var StringList : tStringList;
r : Integer;
begin
IdFTP1.host := Host;
IdFTP1.User := User;
IdFTP1.Password := Password;
try
IdFTP1.connect;
IdFTP1.changedir(dir);
except
end;
IdFTP1.List(StringList, '*.txt', False);
for r := 0 to StringList.count-1 do begin
lista.Items.add(StringList[r]);
end;
IdFTP1.disconnect;
StringList.Free;
end;
Espero te sirva de ayuda
Saludos