spalten : array [1..300] of integer;
zeilen : array [1..300] of integer;
...
for i := 0 to AnzahlSpalten do
    for n := 0 to AnzahlZeilen do
        begin
          Spaltenzaehler := i;
          Zeilenzaehler := n;
          randomize;
          RandomZeichen := random(26) + 65;
//*******************************************************************************************\\
          buchstabe[i,n].Zeichen := char(RandomZeichen); // Hier ist ein Fehler!
//*******************************************************************************************\\
          Schreibflaeche.Canvas.TextOut(spalten[Spaltenzaehler],zeilen[Zeilenzaehler],buchstabe[i,n].zeichen);
        end;