function TfmBackUp.FindFile(FolderName: String): Integer;
var
RowIndex : Integer;
SR : TSearchRec;
begin
if (findFirst(FolderName+'\*.*',faAnyFile,Sr)) = 0 then
repeat
if (Sr.Name <> '.') and (Sr.Name <> '..') then
begin
if (SR.Attr and faDirectory) = faDirectory then
begin
FindFile(FolderName + '\'+SR.Name);
end
else
ListBox1.Items.Add(Sr.Name);
end;
until FindNext(Sr) <> 0;
FindClose(Sr);
end;