I found a way:

WhileReadingRecords;
StringVar Array ArticlesVar;
NumberVar i;

IF NOT ({db.ArtNr} IN ArticlesVar) THEN
(
    i:=i+1;
    ReDim Preserve ArticlesVar [i];
    ArticlesVar[i]:={db.ArtNr};
);