richmemo: patch the Search result not returning true. By David. bug #32297

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7281 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/richmemo/richmemo.pas

@@ -1086,6 +1086,7 @@ begin
       // depending on the language and search options (to be done)
       // mostly for Arabi and Hebrew languages
       ATextLength:=UTF8Length(ANiddle);
+      Result := (ATextStart >= 0);
     end else begin
       Result:=TWSCustomRichMemoClass(WidgetSetClass).SearchEx(Self, ANiddle, so, ATextStart, ATextLength);
     end;