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

// So wird es deklariert
Var Zahlen: array[0..10] of Integer;

[...]

// So wird z.B. ein Wert zugewiesen
Zahlen[0] := 15;
Zahlen[2] := 8;
// etc.					

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:
38:
39:
40:
41:
42:
43:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lnr: TLabel;
    epersonen: TEdit;
    Label1: TLabel;
    Button1: TButton;
    bspeichern: TButton;
    Button3: TButton;
    procedure bspeichernClick(Sender: TObject);
    procedure epersonenChange(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  pkwnr:Integer;
implementation

{$R *.dfm}

procedure TForm1.epersonenChange(Sender: TObject);
begin
pkwnr:=StrToInt(lnr.Caption);
end;

procedure TForm1.bspeichernClick(Sender: TObject);
begin
pkwnr:=pkwnr+1;
lnr.Caption:=IntToStr(pkwnr);
end;

end.					

1:

Var Auto: array[1..8] of Byte;					

1:

var Zähler: Byte;					

1:

auto[zähler]:= StrTOInt(Edit.Text);					

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

TForm1 = class(TForm)
  lnr: TLabel;
  epersonen: TEdit;
  Label1: TLabel;
  Button1: TButton;
  bspeichern: TButton;
  Button3: TButton;
  procedure bspeichernClick(Sender: TObject);
  procedure epersonenChange(Sender: TObject);
private
  Personenzahl : array[1..8] of cardinal; // <-- Will heißen: Personenzahl ist eine Liste von 8 ganzen Zahlen
public
  { Public-Deklarationen }
end;					

1:

Personenzahl[5] := 15; // <-- Will heißen: Setze den 5. Wert in der Liste 'Personenzahl' auf 15					

1:

Personenzahl[5] := 15; // <-- Will heißen: Setze den 5. Wert in der Liste 'Personenzahl' auf 15					

1:
2:
3:
4:

  public
      { Public declarations }
   PlistArray: Array of byte;  // dynamisch
   anzahl: byte;					

1:
2:
3:
4:
5:

procedure button_speichern;
begin
 inc(i)   // variable um eins erhöhen
 MyArray[i] := ...   // dem array an der stelle i entsprechenden wert zuweißen 
end;