Считывание из файла

type rec=record
images:array[0..99] of Tobject;
end;
var memorect:rec;

rewrite(f);
for i:=0 to form1.componentcount-1 do
if form1.Components[i] is Tmemo then
begin
imagerec.images[j]:=form1.Components[i];
j:=j+1;
end;
write(f,imagerec);
closefile(f);

reset(f);
read(f,memorec);

type
  TRichEdit = class(ComCtrls.TRichEdit)
  private
    FRTFStr: String;
  published
    property RTFStr: String read FRTFStr write FRTFStr;
  end;

for i:= 0 to panforsound.ComponentCount-1 do
      if panforsound.Components[i] is Tmediaplayer then
      panforsound.Components[i].Owner:=scroll;

  try
    RegisterClass(TRichEdit);
  except
  end;

type
  TRichEdit = class(ComCtrls.TRichEdit)
  private
    function GetRTF: String;
    procedure SetRTF(ARTF: String);
  published
    property RTF: String read GetRTF write SetRTF;
  end;
 
...
 
function TRichEdit.GetRTF: String;
var
  SS: TStringStream;
begin
  Result := '';
  SS := TStringStream.Create('');
  try
    Lines.SaveToStream(SS);
    Result := SS.DataString;
  finally
    SS.Free;
  end;
end;
 
procedure TRichEdit.SetRTF(ARTF: String);
var
  SS: TStringStream;
begin
  SS := TStringStream.Create(ARTF);
  try
    Lines.LoadFromStream(SS);
  finally
    SS.Free;
  end;
end;