Fehler: IF: Kein Teil eienr Menge (Bedingung)

[SvenLittkowski]

Code:

for Runde:=0 to Length(TheColor1) do
if(TheColor1[1]<>'$')and(Ord(TheColor1[Runde])<>[48..57])and(Ord(TheColor1[Runde])<>[65..70]) then ...

Dieser Code erzeugt bei mir die folgende Fehlermeldung:

Zitat von Delphi 7:

[Error] Box1.pas(350): Incompatible types: 'TObject' and 'Char'
[Error] Box1.pas(350): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'Integer'

Ich will mit diesem Code testen, ob ein String ("TheColor1") als Farbe (z.B. "$00004F4F") interpretiert werden kann. Was mache ich falsch (kann die Fehlermeldungen leider nicht ausarbeiten)?