Ich weiß jetzt nicht, ob es extra einen Befehlt dafür gibt, aber ansonsten mach es doch ganz einfach mit einer Schleife
Du ermittelst die Länge des 1. Arrays und setzt diese für den 2. Array. Über eine Schleife setzt du dann die Werte des 1. Arrays für den 2. Array.
Delphi-Quellcode:
SetLength(Array2,Length(Array1));
for i:=0 to Length(Array2)-1 do begin
Array2[i].IP := Array1[i].IP;
Array2[i].LastPing := Array1[i].LastPing;
{...}
end;