procedure GetAllDir(RootDir:string;DirList:TStrings);
var sr: TSearchRec;
    FileStr,PathStr: string;
begin
  PathStr := ExtractFilePath(RootDir);
  FileStr := PathStr   '*.';
  if FindFirst(FileStr , faDirectory , sr) = 0 then  begin
    repeat
      if (sr.Name<>'.') and (sr.Name<>'..')then begin
        DirList.Add(PathStr   sr.Name);
        GetAllDir(PathStr   sr.Name   '\', DirList ); // Get Child Directory
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  GetAllDir('e:\',Memo1.Lines);
end;