Bitoperationen

[Dunkelbunt27]

Es funktioniert immernoch nicht

Delphi-Quellcode:

procedure TForm1.blauClick(Sender: TObject);
begin
   buchstabe[PositionSpalte,PositionZeile].attribut:= $20;    //2. Bit setzen
end;

procedure TForm1.schwarzClick(Sender: TObject);
begin
    buchstabe[PositionSpalte,PositionZeile].attribut:= $1;    //1. Bit setzen
end;

procedure buchstaben;                                                     // Vorbereitung für das schnelle anzeigen von Buchstaben
var lauf,i,n  : integer;
begin
  for i := 1 to AnzahlSpalten  do
    for n := 1 to AnzahlZeilen  do
       begin     // Bit Abfragen
          if (buchstabe[i,n].Attribut and flschwarz > 0) then
             Form1.Canvas.Font.Color:=clblack;

          if (buchstabe[i,n].Attribut and flblau > 0) then
             Form1.Canvas.Font.Color:=clblue;

          if (buchstabe[i,n].Attribut and flrot > 0) then
             Form1.Canvas.Font.Color:=clred;

          if (buchstabe[i,n].Attribut and flgruen > 0) then
             Form1.Canvas.Font.Color:=clgreen;

          if (buchstabe[i,n].Attribut and flgrau > 0) then
             Form1.Canvas.Font.Color:=clgray;

        Form1.Canvas.TextOut(spalten[i],zeilen[n],buchstabe[i,n].zeichen);
       end;
end;

const
  flschwarz = $1;                
  flblau    = $20;
  flrot     = $36;
  flgruen   = 8;
  flgrau    = 16;

TBuchstabe = record
               Zeichen  : char;
               Attribut : byte;
             end;

  buchstabe       : array of array of TBuchstabe;

Was mache ich falsch....
...