ihr habt vergessen, das clblack und so zeugs auch dazugehört. einfach mit stringtocolor probieren und mit try except absichern:
Delphi-Quellcode:
function iscolorcode(s:string):boolean;
begin
try begin
stringtocolor(s);
result:=true;
end except
result:=false;
end;
end;