procedure Clone(Src: TSomeObject; var Result : TSomeObject); var i: integer; begin for i := 0 to Src.Count - 1 do Result.Items[i] := Src.Items[i]; end;