[Alegun]

Вот это в коде замените

Код:

...
 FindRes:=FindFirst(Dir+'\*.xml',faAnyFile,SR);
 While FindRes=0 do
  begin
   memo4.Lines.Add(SR.Name);
   FindRes:=FindNext(SR);
  end;
 FindClose(SR);
...