1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure SetSubScript (Value: Boolean);

var   Format: TCharFormat2;
      Flag:   Longint;

begin
  FillChar(Format, SizeOf(TCharFormat2), 0);
  Format.cbSize := SizeOf(TCharFormat2);
  with Format do
    begin
      dwMask := CFM_SUBSCRIPT;
      if Value then
        dwEffects := dwEffects or CFE_SUBSCRIPT;
    end;
  SendMessage(RichEdit.Handle, EM_SETCHARFORMAT, SCF_SELECTION, LPARAM(@Format));
end;