динамический массив никак не заработает

[Heng]

Задача создать двухмерный динамический массив 3строки и бесконечно столбцов
записывать на 0столбец данные и смещать их в право, чтобы получился как бы обратный массив

p:=1;//объявлена глобально

var Key:array of array of string; i,p:integer;
begin
inc(p);
   SetLength(Key,3,p);
     for i:= 0 to p-1 do
        key[i+1]:=key[i];
   key[1,0]:= inttostr(XYxXY[1,2]); key[2,0]:= inttostr(XYxXY[2,2]);key[3,0]:= 'Col';
end;

[eoln]

key[i+1]

Максимальное значение этого выражения = p, но массивы индексируются от 0 до p-1, значит ошибка будет.
И цикл надо с конца, а не сначала, а то всё затираться будет.
И вообще лучше копировать части массивов http://www.delphibasics.ru/Move.php
А ещё лучше не использовать массивы, а списки прикрутить (если, конечно, это не учебная задача на массивы)

[Heng]

Все получилось спасибо !