Foros Club Delphi - Problema con vectores dinámicos

Hola que tal?.. tengo un problema al crear vectores dinámicos, los utilizo para almacenar reales, los vectores funcionan bien hasta cierto momento, desde ahi no puedo crear mas vectores y me salta un 'access violation' si trato de crear uno. Me imagino que debe ser por falta de memoria, no se si delphi le adjudica memoria a las aplicaciones y quizas no me esté dando.
Saludos
Ariel

Codigo:

function concatenarVectores(vec1,vec2:TVecReal): TVecReal;
var
vecFinal: TVecReal;
i,j,tope1,tope2: integer;
begin
SetLength(vecFinal,Length(vec1)+Length(vec2)-1);
tope1 := Length(vec1)-1;
tope2 := Length(vecFinal)-1;
for i:=0 to tope1-1 do
vecFinal[i]:=vec1[i];
for j:=tope1 to tope2 do
vecFinal[j]:=vec2[j-tope1];
result := vecFinal;
end;

procedure TTriangulo.pintarTriangulo;
var
za,zb,zc,xa,xb,xc,xd,ha,hb,hc,XIni,XFin,HIni,HFin,HScan,ZIni,ZFin,ZScan: TVecReal;
r,y,x,yNum,xInic,xFina:integer;
vec: TVecPoint;
h:byte;
xInicial,xFinal,hInicial,hFinal,zInicial,zFinal: real;
begin
vec := ordenar(self.vertice1,self.vertice2,self.vertice3);
xa := interpolar(vec[0].y,vec[2].y,vec[0].x,vec[2].x);
ha := interpolar(vec[0].y,vec[2].y,vec[0].h,vec[2].h);
za := interpolar(vec[0].y,vec[2].y,vec[0].z,vec[2].z);
xb := interpolar(vec[0].y,vec[1].y,vec[0].x,vec[1].x);
hb := interpolar(vec[0].y,vec[1].y,vec[0].h,vec[1].h);
zb := interpolar(vec[0].y,vec[1].y,vec[0].z,vec[1].z);
xc := interpolar(vec[1].y,vec[2].y,vec[1].x,vec[2].x);
hc := interpolar(vec[1].y,vec[2].y,vec[1].h,vec[2].h);
zc := interpolar(vec[1].y,vec[2].y,vec[1].z,vec[2].z);
XIni := xa;
XFin := concatenarVectores(xb,xc);
HIni := ha;
HFin := concatenarVectores(hb,hc);
ZIni := za;
ZFin := concatenarVectores(zb,zc);

......
El problema me lo da cuando concateno los vectores, me da un access violation cuando creo el vector dinámico en el procedimiento 1.

Salú