Procedure, Array als Rückgabewert?

[Luckie]

Kleines Beispielprogramm ist gut. Ohne Kommentare oder Hinweise, wo man gucken muss, geschweige denn wie es funktioniert oder was es macht. Zumindest ein klitze kleiner Hinweis wie man es hinbekommt, dass die besagte Prozedur aufgerufen wird, wäre etwas hilfreich. Ich bekomme nämlich schon so eine AccessViolation bei

Delphi-Quellcode:

procedure TForm1.AllSpeedButtons(Sender: TObject);
var
  farbe                  : TColor;
  itag                   : Integer;
begin
  farbe := clRed;
  itag := (Sender as TSpeedButton).Tag;
  meineListe.Insert(0, (IntToStr(itag)));
  AddMyItem(IntToStr(itag), farbe);
end;

Gefunden:

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer; aStart, aEnd: Integer; var Wertigkeit: TIntArray);
var
  y                    : Integer;
begin
  SetLength(Wertigkeit, aEnd);
  for y := aStart to aEnd - 1 do
    Wertigkeit[y] := 0;
end;

Dynamische Arrays gehen von 0 bis Länge - 1.