1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

type
 TRechteck = record
 Rct:TRect;
 lang:byte;
 breit:byte;
 txt:shortstring;
 farbe:TColor;
 number:byte;
end;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
usw.................
.....................
.....................
.....................
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
    MyRect:array of TRechteck;
begin
 For i:= 0 to 48 do MyRect[i].lang:=1;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type
 TRechteck = record
 Rct:TRect;
 lang:byte;                                     //<-soll 1 zugewiesen werden
 breit:byte;
 txt:shortstring;
 farbe:TColor;
 number:byte;
end;
.............

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
    MyRect:array of TRechteck;                      //<- das Array
begin
 For i:= 0 to 48 do MyRect[i].lang:=1;              //<- füllen
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

type
TRechteck = record
Rct:TRect;                          //<---------
lang:byte;
breit:byte;
txt:shortstring;
farbe:TColor;
number:byte;
end;
........

Procedure TForm1.Proz2;
var
  i,z,Reihe:integer;
    Rect:TRect;                                  //<------
begin
z:=0; Reihe:=1;
 for i:=1 to 48 do
 begin
  inc(z);
  if (10+(z*20)) >= (Form1.clientheight - 30) then
  begin
     inc(Reihe); z:=1;
  end;
    rect.Left:=110*Reihe; Rect.Bottom:=10+(z*20);
    rect.Right:=80+(110*Reihe); Rect.Top:=35+(z*20);
    Form1.Canvas.Rectangle(rect.Left,rect.bottom,rect.right,rect.top);
    Form1.Canvas.TextOut(rect.Left+2,rect.bottom+2,inttostr(10+(z*20))+'   '+inttostr(i));
    setlength(Myrect,48);
    with MyRect[i] do
    begin
    rct.left:=rect.left;        //<- ohne diese Anweisung funzt alles ?!!?
    rct.bottom:=rect.bottom;    //<- Einwandfrei
    farbe:=clred;
    lang:=i;
    end;
 end;					

1:
2:
3:
4:
5:
6:
7:

 with MyRect[i] do
    begin
    rct.left:=rect.left;               <- hier gibt es ne fehlerhafte Zeigeroperation
    rct.bottom:=rect.bottom;           <- das hier funzt einwandfrei - WARUM?
    farbe:=clred;
    lang:=i;
    end;