pobieranie listy plików z serwera www

jak mogę pobrać liste wszystkich plików w danym katalogu na serwerze?
chodzi mi o takie coś jak np. gdy nie ma indexu w danym katalogu to przeglądarka (o ile nie ma SafeMode na serwerze) pokazuje wszystkie pliki.

poradziłem sobie z tym problemem :)
pomyliłem się, to serwer automatycznie generuje tą stronę jak ma wyłączony SafeMode. oto mój kod jesli się komuś przyda:

var
  p1, p2: integer;
  buff: string;
  s: string;
begin
  try
//'test' to komponent TIdHTTP;
    buff := StrLower(PChar(test.Get('http://www.ppclisting.com/gfx/')));

    while pos('href="', buff) > 0 do
    begin
      p1 := pos('href="', buff)+5;
      delete(buff, 1, p1);
      p2 := pos('"', buff)-1;
      s := copy(buff, 1, p2);
      if (not (s[1] in [#27, '/', '?', '.', '"'])) and (s[length(s)] <> '/') then
        listbox1.Items.Add(s);
    end;
  except
    MessageBox(application.Handle, 'Nastapił błąd podczas wywołania', 'Błąd', MB_OK + MB_ICONERROR);
  end;

kiepsko wam działa to kolorowanie składni :(