怎么读取指针数组中的某个值

如何读取指针数组中的某个值？
我定义了一个指针：

    Pchar1=array   of   pchar;
    PPchar=^Pchar1;

然后在函数中定义了一个变量

function   dtt(seriesRange:PPchar):integer;  
begin
    我给变量seriesRange开辟了两个长度，  
    并赋了seriesRange^[0]为AA，   seriesRange^[1]为BB；
   
    //请问如何读出“AA”和“BB”呢？
    我写了一句showmessage(seriesRange^[0]);结果什么都没有？错在哪里呢？
end;


[解决办法]

GetMem(seriesRange^[0],20);
GetMem(seriesRange^[1],20);
并赋了seriesRange^[0]为AA， seriesRange^[1]为BB；
[解决办法]
//这样看着舒服一些
var
seriesRange:PPchar;
begin
new( seriesRange );
setLength( seriesRange^, 2 );
seriesRange^[0]:= 'aa ';
seriesRange^[1]:= 'bb ';
showmessage( seriesRange^[0] );
showmessage( seriesRange^[1] );
setlength( seriesRange^,0 );
dispose( seriesRange );
end;