//Beginn Eingabezeichen in die Matrix einschreiben
  index:=0;  //Zeiger des aktuellen Zeichens auf die PanelMatrix
  row:=0;   //Zeilenzhler
  counter:=1;  //Zeichenzhler im Eingabetext
  repeat
    zeichen:=inputtext[counter];
    if MyMatrixPanel[index].Enabled=true
    then
    begin
      MyMatrixPanel[index].Caption:=zeichen;
    end
    else
    begin
      while MyMatrixPanel[index].Enabled=false do
      begin
        inc(index);
      end;
      MyMatrixPanel[index].Caption:=zeichen;
    end;
    inc(index);
    inc(counter);
  until counter=length(inputtext)+1;
  for i:=index to 2024 do
  begin
    MyMatrixPanel[i].Caption:='?';
  end;
  //End Eingabezeichen in die Matrix einschreiben}