Каталог и его содержимое

var sr:TSearchRec;
begin
FindFirst('.\data\post\*.*',faAnyFile,sr);
Form4.Show;
Form4.Memo1.Text:=sr.Name;
end;

var sr:TSearchRec;
begin
FindFirst('.\data\post\*',faDirectory,sr);
Form4.Show;
Form4.Memo1.Text:=sr.Name;
end;

procedure Find;
var
SearchRec: TSearchRec; // информация о файле или каталоге
begin
GetDir(0,cDir); // получить имя текущего каталога
  if length (cDir)<> 3 then cDir := cDir+'\';
     GetDir(0,info);
    // обработка подкаталогов текущего каталога
        if FindFirst('*.*', faDirectory, SearchRec) = 0 then
        repeat
            // каталоги .. и . тоже каталоги,
            // но в них входить не надо .'.'.'
              if SearchRec.Name[1] <> '.' then
              begin
               if (SearchRec.Attr and faDirectory) = faDirectory then
               begin
              GetDir(0,info);
              //Form1.mmo1.Lines.Add(SearchRec.Name);
              ChDir(SearchRec.Name);// войти в катало
              Find; // выполнить поиск в подкаталоге
              //GetDir(0,info);
              ChDir('..');// выйти из каталога
              end;
              end;
        until FindNext(SearchRec) <> 0;
  end;