Как вывести название папок из указанной папки?

[zotox]

[Делфи]

Собственно не могу этого реализовать, помогайте)

procedure TForm1.FormCreate(Sender: TObject);
var
 find:integer;
 sf:TSearchRec;
begin
 find:=FindFirst('d:\*.*',faDirectory,sf);
 while find=0 do
  begin
   find:=FindNext(sf);
   ListBox1.Items.Add(sf.name);
  end;
end;

[Arigato]

var
 sf:TSearchRec;
 FileName: string;
begin
 if FindFirst('d:\*.*',faDirectory,sf) = 0 then;
 repeat
   FileName := 'd:\' + sf.Name;
   if DirectoryExists (FileName) and (FileName <> '.') and (FileName <> '..')
     then ListBox1.Items.Add(sf.Name);
 until FindNext(sf) <> 0;
 FindClose (sf);