procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  i: Integer;
  pth: String; //Папка
begin
  pth:=ExtractFilePath(ParamStr(0)); //Папка с программой.
  i:=FindFirst(pth+'*',faAnyFile or faDirectory,sr);
  while i=0 do
  begin
    if (sr.Name='.') or (sr.Name='..') then
    begin
      i:=FindNext(sr);
      Continue;
    end;
    if DirectoryExists(pth+sr.Name) then //Если папка
      ListBox1.Items.Add('<a href="/dir-<'+sr.Name+'>">'+sr.Name+'</a>') //Ну или pth+sr.Name (т.е. полный путь)
    else ListBox1.Items.Add('<a href="/file-<'+sr.Name+'>">'+sr.Name+'</a>');
    i:=FindNext(sr);
  end;
  FindClose(sr);
end;