Hexadezimal Farben als Hintergrund

[iHanns]

Ich bekomme die gleiche Fehlermeldung aber zu nem einfacheren Text, vllt kennt da ja jmd die Lösung:

procedure TFenster.Button1Click(Sender: TObject);
var a, s : integer;
Zeichen : string;
begin
s:=1;
for s := 1 to length(edit1.Text) do
begin
Zeichen := Edit1.Text[s];
if Zeichen = 'A'
then Zeichen.Font.Color:=StringToColor('$FFFF00')
else Zeichen.Font.Color:=StringToColor('$00FF00');
end;

end;