Есть ли простой способ добавить 2 массива в один?

Существует ли простой способ объединения 2 массивов в один? В случае, описанном ниже, нельзя просто использовать оператор C := A + B... Хотелось бы избежать создания алгоритма для него каждый раз.

TPerson = record
    Birthday: Tdate;
    Name, Surname:string;
end;

Tpeople = array of TPerson;

var A, B, C:Tpeople;

C:=A+B; // it is not possible

thanx