Vector で insert を使うな！　

xx.insert(n,data);

SetLength(xx,Length(xx)+1); for i:=n+1 to High(xx) do xx[i]:=xx[i-1] ; xx[n]:=data;