Function nCloseKurseAbDatum(AbDatum : Date; AnzahlKurse : integer): Array;
Begin
// Wenn das Datum nicht gefunden wird bleibt in die Kursreihe Leer (0 Einträge)
// Liegt das Datum nahe am Ende der Kursreihe sind die letzten Einträge "leer"
DatumsPosition : integer := Close.IndexOfDateTime(AbDatum);
ErgebnisKursreihe : Array := Leer;
if DatumsPosition > 0 then
Begin
   ErgebnisKursreihe.SetCount(AnzahlKurse);
   nFillIndex : integer := 1;
   for i := DatumsPosition to DatumsPosition + AnzahlKurse -1 do
   Begin
     if (i < Close.Count())
       then ErgebnisKursreihe[nFillIndex] := Close[i]
       else ErgebnisKursreihe[nFillIndex] := leer;
     nFillIndex := nFillIndex + 1;
   End;
End
else
  ErgebnisKursreihe.SetCount(0);
Result := ErgebnisKursreihe;
End;

KurzeKursreihe  :=  nCloseKurseAbDatum( StrToDate("01.11.2016"), 20);