Komponens tulajdonságainak tárolása állományba

procedure TForm1.Button1Click(Sender: TObject);
begin
  WriteComponentResFile('Edit1.dat', Edit1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:=IntToStr(Random(10000));
  Edit1.Color:=RGB(Random(50)+200, Random(50)+200, Random(50)+200);
  Edit1.Font.Size:=Random(20)+10;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ReadComponentResFile('Edit1.dat', Edit1);
end;