Неправильно работает FindDialog

procedure TfMemo.FindDialogFind(Sender: TObject);
 
  function UTF8RPosEx(const Substr, Source: string; Offset : Integer): PtrInt;
  var
    pRev: PtrInt;
  begin
    pRev := RPosEx(Substr, Source, Offset);    // Scan from the end.
    Result := UTF8Length(PChar(Source), pRev); // Length of the leading part.
  end;
 
 
var
   Found, StartPos: Integer;
   ToFind, Where : string;
 
   isReverse : Boolean;
begin
   ToFind := FindDialog.FindText;
   Where := Memo.Text;
   if not (frMatchCase in FindDialog.Options) then
   begin
      ToFind := AnsiUpperCase(ToFind);
      Where := AnsiUpperCase(Where);
   end;
 
   isReverse := not (frDown in FindDialog.Options);
 
   if Memo.SelLength <> 0 then
   begin
      StartPos := Memo.SelStart;
      if not isReverse then
         StartPos := StartPos + Memo.SelLength
   end
   else
   begin
      if isReverse then
         StartPos := Length(Where)
      else
         StartPos := 0;
   end;
 
 
   if isReverse then
      Found := UTF8RPosEx(ToFind, Where, StartPos)
   else
      Found := UTF8Pos(ToFind, Where, StartPos + 1);
 
   if Found <> 0 then
   begin
      Memo.HideSelection := False;
      Memo.SelStart := Found - 1;
      Memo.SelLength := UTF8Length(FindDialog.FindText);
   end
   else
      MessageDlg ('Строка ' + FindDialog.FindText + ' не найдена!', mtConfirmation, [mbYes], 0);
end;

program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Translations, // <--- Добавляем в uses вот этот модуль !!!
  Forms, Unit1
  { you can add units after this };
 
{$R *.res}
 
begin
  // добавляем следующую строку:
  Translations.TranslateUnitResourceStrings('lclstrconsts', 'C:\lazarus\lcl\languages\lclstrconsts.ru.po'); // тут должен быть путь к установленному на машине Лазарусу
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  if frReplaceAll in ReplaceDialog1.Options then // заменить все вхождения
  begin
     Memo1.Text := UTF8StringReplace(Memo1.Text, ReplaceDialog1.FindText, ReplaceDialog1.ReplaceText, [rfReplaceAll]);
  end
  else
  begin // заменять по одному
    ReplaceDialog1Find(Self); // находим то, что записано в поле FindText
 
    // и если что-то было найдено (длина выделенного текста больше 0) - то
    // заменяем выделенный текст на содержимое второго поля. Вот и все...
    if Memo1.SelLength > 0 then Memo1.SelText := ReplaceDialog1.ReplaceText;
  end;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
function UTF8RPosEx(const Substr, Source: string; Offset : Integer): PtrInt;
var
  pRev: PtrInt;
begin
  pRev := RPosEx(Substr, Source, Offset);    // Scan from the end.
  Result := UTF8Length(PChar(Source), pRev); // Length of the leading part.
end;
 
 
var
 Found, StartPos: Integer;
 ToFind, Where : string;
 
 isReverse : Boolean;
begin
 ToFind := ReplaceDialog1.FindText;
 Where := Memo1.Text;
 if not (frMatchCase in ReplaceDialog1.Options) then
 begin
    ToFind := AnsiUpperCase(ToFind);
    Where := AnsiUpperCase(Where);
 end;
 
 isReverse := not (frDown in ReplaceDialog1.Options);
 
 if Memo1.SelLength <> 0 then
 begin
    StartPos := Memo1.SelStart;
    if not isReverse then
       StartPos := StartPos + Memo1.SelLength
 end
 else
 begin
    if isReverse then
       StartPos := Length(Where)
    else
       StartPos := 0;
 end;
 
 
 if isReverse then
    Found := UTF8RPosEx(ToFind, Where, StartPos)
 else
    Found := UTF8Pos(ToFind, Where, StartPos + 1);
 
 if Found <> 0 then
 begin
    Memo1.HideSelection := False;
    Memo1.SelStart := Found - 1;
    Memo1.SelLength := UTF8Length(ReplaceDialog1.FindText);
 end
 else
    MessageDlg ('Строка ' + ReplaceDialog1.FindText + ' не найдена!', mtConfirmation, [mbYes], 0);
end;
 
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  if frReplaceAll in ReplaceDialog1.Options then
  begin
     Memo1.Text := UTF8StringReplace(Memo1.Text, ReplaceDialog1.FindText, ReplaceDialog1.ReplaceText, [rfReplaceAll]);
  end
  else
  begin
    ReplaceDialog1Find(Self);
    if Memo1.SelLength > 0 then Memo1.SelText := ReplaceDialog1.ReplaceText;
  end;
end;

// глобальная функция
procedure DoFindText(ADialog : TFindDialog; AControl : TMemo);
function UTF8RPosEx(const Substr, Source: string; Offset : Integer): PtrInt;
var
  pRev: PtrInt;
begin
  pRev := RPosEx(Substr, Source, Offset);    // Scan from the end.
  Result := UTF8Length(PChar(Source), pRev); // Length of the leading part.
end;
 
var
 Found, StartPos: Integer;
 ToFind, Where : string;
 
 isReverse : Boolean;
begin
 ToFind := ADialog.FindText;
 Where := AControl.Text;
 if not (frMatchCase in ADialog.Options) then
 begin
    ToFind := AnsiUpperCase(ToFind);
    Where := AnsiUpperCase(Where);
 end;
 
 isReverse := not (frDown in ADialog.Options);
 
 if AControl.SelLength <> 0 then
 begin
    StartPos := AControl.SelStart;
    if not isReverse then
       StartPos := StartPos + AControl.SelLength
 end
 else
 begin
    if isReverse then
       StartPos := Length(Where)
    else
       StartPos := 0;
 end;
 
 
 if isReverse then
    Found := UTF8RPosEx(ToFind, Where, StartPos)
 else
    Found := UTF8Pos(ToFind, Where, StartPos + 1);
 
 if Found <> 0 then
 begin
    AControl.HideSelection := False;
    AControl.SelStart := Found - 1;
    AControl.SelLength := UTF8Length(ADialog.FindText);
 end
 else
    MessageDlg ('Строка ' + ADialog.FindText + ' не найдена!', mtConfirmation, [mbYes], 0);
end;
 
// тогда OnFind для диалогов как поиска, так и замены будет выглядеть вот так:
 
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
  DoFindText(Sender as TFindDialog, Memo1);
end; 
 
procedure TForm1.ReplaceDialog1Find(Sender: TObject);
begin
  DoFindText(Sender as TFindDialog, Memo1);
end;

FindDialog.Execute(); и  ReplaceDialog.Execute();

procedure TfMemo.ReplaceDialogReplace(Sender: TObject);
begin
  ...
end;