Получение Списка Файлов в Директории

//Выводит имена файлов в TMemo
uses
  System.SysUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  Sr : TSearchRec;
  Attr : Integer;
  flPath : String = '';
begin
  Attr := faAnyFile - faVolumeID - faDirectory;
  try
    if FindFirst(flPath + '*', Attr, Sr) = 0 then
    repeat
      Memo1.Lines.Add(Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;