Problem mit TColor

[Sir Rufo]

So kannst du es versuchen

Delphi-Quellcode:

function ColorFromRGB( const RValue, GValue, BValue : Byte ) : TColor;
begin
  Result := TColor( ( BValue shl 8 + GValue ) shl 8 + RValue );
end;

Dein Konstrukt Integer( '00001010000100010010001' ) ergibt eigentlich nichts Substantielles
Vor allem, woher soll der Compiler wissen, dass es sich hierbei um eine Binär-Kodierung handelt?
Könnte ja jedes beliebige Zahlensystem sein. Vorzugsweise würde er das Dezimal-System benutzen.