procedure TForm1.Button1Click(Sender: TObject);
type
 TArr = array of array of Integer;
  TRecord = Record
    A: TArr;
  end;
var
  A: TArr;
  I: Integer;
  recPointer : ^TRecord;
begin
  ReportMemoryLeaksOnShutdown := True;
// создаем массив, напоминающий гребешок с разной длиной зубцов
  SetLength(A, 3);
  for I := 0 to 2 do
    SetLength(A[I], Random(10));
// --- GetMem(recPointer, SizeOf(TRecord));
  New(recPointer);
  recPointer.A := A;
//...
  Finalize(A); // Вопрос: финализнется ли весь "гребешок" или по каждому "зубу" надо делать отдельный Finalize?
// --- Finalize(recPointer^);  // <-- если убрать, то потечём
  //...
// ---  FreeMem(recPointer);
  Dispose(recPointer);
end;