Возврат рекурсивной функции

[DarkHacker]

Здарвствуйте. Помогите найти ошибку в коде. Есть функция которая должна в результате своего выполнения выдать результат функции описаной ниже. Первая функция разбивает bitmap, вторая рекурсивно сравнивает bitmap с файлами в папке. В результате 1 должна получит имя файла с которым совпала bitmap.

function check_patterns(bmp:TBitmap;Path:string):string;
var
bmp2:TBitmap;
sRec: TSearchRec;
isFound: boolean;
str:string;
begin
str:='';
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin

if ( sRec.Attr and faDirectory ) = faDirectory then
check_patterns(bmp,Path + '\' + sRec.Name);
end;

if (sRec.Attr=32) then
begin
bmp2:=TBitmap.create();
bmp2.LoadFromFile(Path + '\' + sRec.Name);

         if(bitmap_diff2(bmp,bmp2)>95) then
            begin
            //application.MessageBox(PAnsiChar(ExtractOnlyFileName(sRec.Name)),0,0);
            str:=ExtractOnlyFileName(sRec.Name);
            application.MessageBox(PAnsiChar(str),0,0);
            bmp2.free;

 Result:=str;
            break;
            end;


end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
Result:=str;
end;

В коде есть лишние Result - не убрал просто чтобы видели что я уже делал. Не пойму где ошибся. Подскажите пожалуйста.
С помощью вывода месседж бокс удостоверяюсь что функция сравнения свое отработала правильно - так оно и есть, а вот на выходе все равно пустая строка.

[Stilet]

if ( sRec.Attr and faDirectory ) = faDirectory then begin
 Result:=check_patterns(bmp,Path + '\' + sRec.Name);
 if Result<>'' then break;
end;

[DarkHacker]

Убрал из своего кода в конце присвоение результата и все отлично заработало, спасибо вам большое!

[Stilet]

Пожалуйста. Будь внимательнее впредь )