Font.Color eines einzigen Buchstabens in RichEdit ändern

[inherited]

Getippt und nicht getestet:

Delphi-Quellcode:

wuppdi:=false;
lastpos := 1;
for i := 1 to Length(me.Text) do
begin
  if me.Text[i] = '?' then
  begin
    wuppdi := not wuppdi;
    me.SelStart := lastpos;
    me.SelLength := i-lastpos;
    lastpos := i+1;
    if wuppdi then
      me.SelAttributes.Color := clGreen
    else
      me.SelAttributes.Color := clRed;
  end;
end;

Vielleicht fehlt an der ein oder anderen Stelle noch ein +1 oder -1