[icWasya]

У Вас

Код:

DynamicRichEditPage:Array[1..100] of TStrings;

TStrings - это объект, к тому же и абстрактный. Все объекты в Дельфи нужно создавать с помощью вызова конструктора.

Например так

Код:

procedure TForm1.FormCreate(Sender:TObject)
var
  I:Integer;
begin
  for I:=Low(DynamicRichEditPage) to High(DynamicRichEditPage) do
     DynamicRichEditPage[i]:=TStringList.Create;
end;

И соответственно

Код:

procedure TForm1.FormDestroy(Sender:TObject)
var
  I:Integer;
begin
  for I:=Low(DynamicRichEditPage) to High(DynamicRichEditPage) do
     DynamicRichEditPage[i].Free;
end;

И вместо

Код:

DynamicRichEditPage[Form1.TabControl1.TabIndex-1]:=Form1.RichEdit1.Lines;

использовать

Код:

DynamicRichEditPage[Form1.TabControl1.TabIndex-1].Assign(Form1.RichEdit1.Lines);

Здесь

Код:

Form1.RichEdit1.Lines:=DynamicRichEditPage[Form1.TabControl1.TabIndex-1];

Assign можно не использовать, потомучто Lines - это Property, и внутри присваивания Assign уже есть.