Problem mit TColor

[gangs-taas]

hey,
vielen dank
ich glaub das war (anscheinend) doch der hauptfehler in meiner CodierUnit..

könnt ihr mir noch einmal helfen und mir einen einfachen Weg (vor)-sagen, mit dem ich aus mehreren Bits (die ich beim Decodieren bekomme) wieder ein Byte (und dann einen Buchstaben) erzeugen kann ?

mich bringen die ganzen bits irg. durcheinander und das funktioniert alles nicht so wie ich dachte, dass es funktionieren müsse...

EDIT :

ich hab das hier versucht :

Delphi-Quellcode:

 function TDecodieren.BitToBuch(Bit1, bit2, bit3, bit4, bit5, bit6,
                               bit7, bit8: Integer) : Char;
var
  ZwischenInt : Integer ;
begin
  ZwischenInt := 00000000;
  if Bit1 = 1 then
    ZwischenInt := ZwischenInt or 10000000;
  if Bit2 = 1 then
    ZwischenInt := ZwischenInt or 01000000;
  if Bit3 = 1 then
    ZwischenInt := ZwischenInt or 00100000;
  if Bit4 = 1 then
    ZwischenInt := ZwischenInt or 00010000;
  if Bit5 = 1 then
    ZwischenInt := ZwischenInt or 00001000;
  if Bit6 = 1 then
    ZwischenInt := ZwischenInt or 00000100;
  if Bit7 = 1 then
    ZwischenInt := ZwischenInt or 00000010;
  if Bit8 = 1 then
    ZwischenInt := ZwischenInt or 00000001;
  Result := Chr(ZwischenInt);

aber irgendwie kommt da nur mist raus .. (obwohl die Bits den Buchstaben T ergeben )