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:

.......

Var Form1 : TForm1;
    Anz_Kla : integer;  // also global

.....

procedure TForm1.machwas(sender:tobject);
begin
  Anz_Kla := 0;
  setlength(Kla_Bez,     Anz_Kla +1);
  Kla_Bez[Anz_Kla] := TbAusleihsatz.fieldbyname('KLASSE').asstring;
  setLength(Kla_Bez_Anz, Anz_Kla +1);
  QSchueler.first;    // Wieviele Schüler in welcher Klasse?  TbSchueler ???
  while not QSchueler.eof do
  begin
    if (QSchueler.fieldbyname('KLASSE').asstring <> '') and
       (QSchueler.fieldbyname('KLASSE').asstring = Kla_Bez[Anz_Kla]) then
          inc(Kla_Bez_Anz[Anz_Kla]);
        QSchueler.next;
  end;
  showmessage(inttostr(Anz_Kla));   // das sind 34
end;

.....

// in Form2:
form1.machwas(self);
showmessage(inttostr(Kla_Anz));  // das sind 0 
for n := 0 to Kla_Anz do ...					

1:

  showmessage(inttostr(Anz_Kla));   // das sind 34					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.machwas(sender:tobject);
begin
  Anz_Kla := 0;
  setlength(Kla_Bez,     Anz_Kla +1);
  TbAusleihsatz.first;
  while not eof(TbAusleihsatz do
  begin
    Kla_Bez[Anz_Kla] := TbAusleihsatz.fieldbyname('KLASSE').asstring;
    setLength(Kla_Bez_Anz, Anz_Kla +1);
    QSchueler.first;    // Wieviele Schüler in welcher Klasse?  TbSchueler ???
    while not QSchueler.eof do
    begin
      if (QSchueler.fieldbyname('KLASSE').asstring <> '') and
         (QSchueler.fieldbyname('KLASSE').asstring = Kla_Bez[Anz_Kla]) then
            inc(Kla_Bez_Anz[Anz_Kla]);
          QSchueler.next;
    end;
    TbAusleihsatz.next;
    inc(Anz_Kla);
  end;
  showmessage('Form1: ' + inttostr(Anz_Kla));   // Form1: 34
end;					

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

type
  TForm1 = class(TForm)
  ...
  private 
    //private Variable anlegen
    FAnz: integer;
  ...
  public
    //eine ReadOnly-Property anlegen,
    //damit wird indirekt auf die private Variable zugegriffen
    property Anzahl: integer read FAnz;
  end;					

1:
2:
3:
4:

TForm1 = class(TForm)
public
  AnzKla: Integer;
end;					

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

TForm1 = class(TForm)
private
  FAnzKla: Integer;
public
  property AnzKla: Integer read FAnzKla write FAnzKla;
end;					

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

TForm1 = class(TForm)
private
  FAnzKla: Integer;
  procedure SetAnzKla(Value: Integer);
public
  property AnzKla: Integer read FAnzKla write SetAnzKla;
end;

...

procedure TForm1.SetAnzKla(Value: Integer);
begin
  FAnzKla := Value;
  ShowMessage('Neuer Wert gesetzt!');
end;