unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, RichEdit;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 RichEdit1.Clear;
 RichEdit2.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; S1,S2,S3,S4:string;
    CF:TCharFormat;
begin
 for i:=1 to 5 do begin                                                         //Цикл идет от первого символа строки до последнего

 RichEdit1.SelStart:=i;                                                         //Установка начала выборки символов в строке
 RichEdit1.SelLength:=1;                                                        //Взять 1 символ (можно указать любую цифру, все равно почему-то берется 1 символ)

 S1:=RichEdit1.Text[i];                                                         //Текущий символ
 S2:=S2+RichEdit1.Text[i];                                                      //Накапливаем все символы в одну переменную

 FillChar(CF, SizeOf(CF), 0);                                                   //FillChar - заполняем память, выделенную для переменной указанным значением

 CF.cbSize:=SizeOf(CF);                                                         //cbSize - Определяет размер, в байтах, структуры. Перед тем, как передавать эту структуру на rich edit control, установите CBSIze до размера структуры CHARFORMAT или CHARFORMAT2. Если CBSIze равен размеру конструкции CharFormat, контроль использует только члены CharFormat. (https://docs.microsoft.com/en-us/windows/win32/api/richedit/ns-richedit-charformat2w_1)

 CF.dwMask:=CFM_OFFSet;                                                         //dwMask - Определяет части структуры CHARFORMAT2, которая содержит допустимую информацию. Член DWMask может быть комбинацией значений из двух наборов битовых флагов. Один набор указывает на членов структуры, которые действительны. Другой набор указывает на действительные атрибуты в элементе Dweffects. (https://docs.microsoft.com/en-us/windows/win32/api/richedit/ns-richedit-charformat2w_1)
                                                                                //Чтобы использовать элемент yOffset, установите флаг CFM_OFFSet в элементе DWMask (//https://docs.microsoft.com/en-us/windows/win32/api/richedit/ns-richedit-charformat2w_1)
 RichEdit1.Perform(EM_GETCHARFORMAT, SCF_SELECTION, LPARAM(@CF));               //Perform - посылает сообщение (Windows message) окну компонента для обработки

 if CF.yOffset >0 then                                                          //Если текущий символ надстрочный, то...
  begin
  S3:=S3+RichEdit1.Text[i];                                                     //Все надстрочные символы в одну переменную
  end;

 if CF.yOffset <0 then                                                          //Если текущий символ подстрочный, то...
  begin
  S4:=S4+RichEdit1.Text[i];                                                     //Все подстрочные символы в одну переменную
  end;

 end;

 RichEdit2.Lines.Add('Надстрочные: '+S3);
 RichEdit2.Lines.Add('Подстрочные: '+S4);
end;
end.