Смещение индекса в pos, posEx

[Аватар]

Смеёшься, да? И то, и другое в формате rtf, расширение не при делах. При выгрузке из RichEdit научись пользоваться свойством PlainText. Создай RichEdit, свойство Text оставь как есть ("RichEdit1") и оцени результат кода до и после форматирования

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=IntToStr(Pos('it',RichEdit1.Text));
  RichEdit1.SelStart:=3;
  RichEdit1.SelLength:=3;
  RichEdit1.SelAttributes.Color:=clRed;
  RichEdit1.Paragraph.Alignment:=taCenter	;
  Edit2.Text:=IntToStr(Pos('it',RichEdit1.Text));
end;

Мемо тоже понимает форматированный текст???

Где об этом кто-то говорил?