Problema com Matriz

Boa noite pessoal,

Estou com um problema que ainda não identifiquei numa operação com Matriz, é o seguinte, eu tenho uma tabela em que um dos campos se chama QTDE_SEGMENTOS, entao eu quero preencher um Memo com os dados contidos no campo MEDIDA. A tabela esta preenchida assim:

                     MEDIDA        QTDESEGMENTOS
Registro 1 :   803                    7
Registro 1 :   503                    7
Registro 1 :   203                    7

O código abaixo faz esta operação, mas quando o programa é encerrado ele acusa um erro fatal.

procedure TForm1.Button7Click(Sender: TObject);
var
Matriz: array of integer;
A, NumReg: Integer;
begin

NumReg:=Form1.CDS_Mestre.RecordCount;
SetLength(Matriz,NumReg);
Memo1.Clear;

CDS_Mestre.First;

while not CDS_Mestre.Eof do
  begin
  for A:= 0 to Form1.CDS_MestreQTDE_SEGMENTOS.AsInteger-1 do
    begin
    Matriz[A]:= Form1.CDS_MestreMEDIDA.AsInteger;
    Memo1.Lines.Add(inttostr(Matriz[A]));
    end;
  CDS_Mestre.Next;
  end;

end;