Как печатать в верхней подстроке в Delphi например 2 в квадрате

[Moel]

Как печатать в верхней подстроке в Delphi например 2 в квадрате

[Roof]

надстрочные и подстрочные символы можно писать в TRichEdit;
на форму кинь RichEdit и кнопку;
в uses добавь RichEdit;

напиши обработчик для кнопки:

 
procedure TForm1.Button1Click(Sender: TObject);
var
CF: TCharFormat;
begin
  RichEdit1.SelText;
  FillChar(CF, SizeOf(CF), 0);
  CF.cbSize:= SizeOf(CF);
  CF.dwMask:= CFM_OFFSET;
  CF.yOffset:=50;//twips
  SendMessage(RichEdit1.Handle,EM_SETCHARFORMAT, SCF_SELECTION, Integer(@CF));
end;

пиши в RichEdit текст, выделяй нужные символы и жми на кнопку;
должно работать .

[Roof]

меняй значение CF.yOffset, например на 100 и получишь большее смещение

[Serega_P]

Как в RichEdit програмно найти и выделить надстрочные индексы? Если кто знает, буду рад любой помощи!