2 Arrays zu 1 Array zusammenfassen

[Alex_ITA01]

Ich habe es jetzt so probiert aber irgendwie funktioniert das nicht wirklich...
Kannst du mir vielleicht sagen woran es liegen könnte?

Delphi-Quellcode:

var
  i,j     : Integer;
  Found : Boolean;
  Item1  : TIntArray;
  Item2  : TIntArray;
  ArrayGesamt : TIntArray;
begin
  //Item1 und Item2 füllen...

  for i:= 1 to Length(Item2) do
  begin
    found := false;

    for j:= 1 to Length(Item1) do
     if Item2[i]=Item1[j] then
    begin
      found := true;
      break;
    end;

    if not found then
      ArrayGesamt[i] := Item1[j];
  end;