Как объединить массивы

[pancho]

огромная благодарность всем)) спасибо большое))
переделал,всё заработало)

j := 1;
   k := 1;
   for i := 1 to 9{(length(X)+length(Y))} do
    begin
    if (i<4) or (i>=(length(Y)+4)) then
    begin
     Z[i] := X[j];
     Inc(j);
     end
     else
     begin
      Z[i] := Y[k];
      Inc(k);
     end;
    //showmessage(inttostr(i)+' '+floattostr(Z[i]));
    Form1.ListBox3.Items.Add(FloatToStr(Z[i]));
   end;