Hexadezimal Farben als Hintergrund

[Bummi]

Aus der Frage scheint mir auch nicht ersichtlich was das Ziel sein soll

etwas in der Art?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  If Pos('A', Edit1.Text) > 0 then
    Edit1.Font.Color := $FFFF00
  else
    Edit1.Font.Color := $00FF00;
end;

oder eher so etwas?

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Length(StringReplace(RichEdit1.Text, #13, '', [rfReplaceAll]))
    - 1 do
  begin
    RichEdit1.SelStart := i;
    RichEdit1.Sellength := 1;
    if RichEdit1.SelText[1] = 'A' then
      RichEdit1.SelAttributes.Color := $FFFF00
    else
      RichEdit1.SelAttributes.Color := $00FF00
  end;
end;