delphi - zobrazit vsetky subory v zlozke

procedure TForm1.Button1Click(Sender: TObject);
var
  found: integer;
  searchRec: TSearchRec;
begin

  found:= FindFirst(Edit1.Text + '\*.*', faAnyFile, searchRec);

  while (found = 0) do begin
    if ((searchRec.Name <> '.') and (searchRec.Name <> '..')) then
      Memo1.Lines.Add(searchRec.Name);
    Found := FindNext(searchRec);
  end;

  FindClose(searchRec);

end;

if (searchRec.Attr = faDirectory) then Memo1.Lines.Add(searchRec.Name + ' --> zložka')
  else Memo1.Lines.Add(searchRec.Name + ' --> súbor');