function WStrRScan(const Str: PWideChar; Chr: WideChar): PWideChar;
begin
 Result := Str;
 while Result^ <> #0 do inc( Result );
 while (DWORD( Result ) >= DWORD( Str )) and
       (Result^ <> Chr) do dec( Result );
 if (DWORD( Result ) < DWORD( Str )) then
   Result := nil
 else inc(Result); <<<<<<--вот эта строка !!!
end;