unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure GetDirList(var ResultList : TStrings;CurrDir :string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ResList : TStrings;
begin
  ResList := TStringList.Create;
  GetDirList(ResList, 'D:\games\*.*');
  memo1.Lines.Assign(ResList);
  ResList.Free;
end;

procedure TForm1.GetDirList(var ResultList : TStrings;CurrDir :string);
 var
  Status: Integer;
  SearchRec: TSearchRec;
  ChildDir : string;
begin
  Status := FindFirst(CurrDir, faDirectory, SearchRec);
  try
    while Status =  0  do
    begin
      if (SearchRec.Attr and faDirectory = faDirectory) then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        begin
          ResultList.add(SearchRec.Name);
          ChildDir := StringReplace(CurrDir,'*.*',SearchRec.Name,[rfIgnoreCase])+'\*.*';
          GetDirList(ResultList,ChildDir);
        end;
      end;
      Status := FindNext(SearchRec);
    end;
  finally
    FindClose(SearchRec);
  end;
end;

end.