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

procedure tform2.btnclick(x,y:integer);
begin
 if buttons[x][y].caption='' then
  begin
   buttons[x][y].Caption:='X';
   ary3belegt[x][y][wtag]:=1;
   inc(ary2belegtpausen[wtag][y]);
   inc(ary1belegtlehrer[x]);
  end
  else
   begin
    buttons[x][y].Caption:='';
    ary3belegt[x][y][wtag]:=0;
    dec(ary2belegtpausen[wtag][y]);
    dec(ary1belegtlehrer[x]);
   end;
end;                    

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

procedure TForm2.Button1Click(Sender: TObject);
var x,y:integer;
begin
for x:=0 to length(buttons)-1 do
 begin
  for y:=0 to length(buttons[0])-1 do
   begin
    if sender=buttons[x][y] then
     begin
      btnclick(x,y);
      exit;
     end;
   end;
 end;
end;                    

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

function tform2.lueckenfuellen(wochentag,pause:integer):integer;
begin
result:=0;
//lstlehrer:=tstringlist.Create; // Falsch, weil von Funktion geliefert!
lstlehrer:=findalllehrerzupause(point(wochentag,pause));
 for x:=0 to lstlehrer.count-1 do                    

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

for x:=0 to pausen-1 do
 begin
  editsp[x]:=tedit.Create(form2);
  //...
  editsp[x].Visible:=true;
  elinks:=elinks+btnbrt;
 end;
etop:=100;
for x:=0 to lehrer-1 do
 begin
  editsl[x]:=tedit.Create(form2);
  //...
  editsl[x].Visible:=true;
  etop:=etop+btnhhe;
 end;