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;
Ein String hat keinen Font, dem du eine Color zuweisen könntest.