URL найденных файлов

Приветствую ребята.
Нашол такой исходник по поиску файлов, работает неплохо за исключением одного, во время выдачи найденных файлов довольно часто не разделяет каталог от файла - тоесть не ставит промежуточную наклонную черту
напр..должно быть c:\dima\mks\text.doc
а выдает c:\dimamkstext.doc

Если кто может помогите пожалуйста, как быть ?

void __fastcall TForm1::LookInDir(AnsiString DirName)
{
TSearchRec sr;
for(int r=FindFirst(DirName+"\\*.*",faAnyFile,sr);!r;r=FindNext(sr))
if((sr.Attr&faDirectory) && (sr.Name!="." && sr.Name!=".."))
LookInDir(DirName+"\\"+sr.Name);
FindClose(sr);
for(int r=FindFirst(DirName+"\\*.doc",faAnyFile,sr);!r;r=FindNext(sr))
ListBox2->Items->Add(DirName+sr.Name);


FindClose(sr);
}