Probleme mit einer Funktion

[timschoen]

So befülle ich den Array:

procedure TForm1.AddClick(Sender: TObject);
begin
Pats[a] := TPat.Create(a);
end;

In der create-procedure zähle ich dann a immer eins hoch, a steht am anfang auf 0. Das Array ist nicht dynamisch, sondern hat immer 20 elemente. Wieviele davon befüllt sind zähle ich mit a.

Pats: Array [0..20] of TPat;

constructor TPat.Create(i: Integer);
begin
Inc(a);
index := i;
....
end;

Grüße zurück und Danke für die Antwort,
Tim