function FindInMemo(AMemo: TRichMemo; AString: String; StartPos: Integer): Integer;
{Find clicked error (word) from ListBoxErrors and highligh it}
//This function must be maybe rewritten and more testing including proper character calculation in UTF8
begin
//Result := UTF8Pos(AString, AMemo.Text, StartPos);//Seems not working
Result := PosEx(AString, AMemo.Text, StartPos);
If Result > 0 then
begin
AMemo.SelStart := UTF8Length(PChar(AMemo.Text), Result - 1);
AMemo.SelLength := UTF8Length(AString);
AMemo.SetRangeParams(AMemo.SelStart, AMemo.SelLength,[tmm_Styles, tmm_Color],'',0,clRed,[fsBold,fsUnderLine],[]);
//In RichMemo HideSelection must be set to True
end;