var
Form1: TForm1;
mydir: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var sr: TSearchRec;
begin
Memo1.Clear;
//mydir:=mydir+'∖*.*';
if FindFirst(mydir+'∖*.*', faAnyFile, sr) = 0 then
begin
repeat
Memo1.Lines.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
getdir(0,mydir);
end;