Сохранение данных в массив

//сделать сохранение куда нибудь выведенных данных, чтобы потом на них можно было посмотреть
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if  checkbox1.Checked and checkbox2.Checked and checkbox3.Checked and checkbox4.Checked
  then showmessage ('2,45 млн рублей') else
if  checkbox2.Checked and checkbox3.Checked and checkbox4.Checked
  then showmessage ('1,5 млн рублей') else
if  checkbox3.Checked and checkbox4.Checked
  then showmessage ('1,2 млн рублей') else
if  checkbox4.Checked
  then showmessage ('0,3 млн рублей') else
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if  checkbox1.Checked and checkbox2.Checked and checkbox3.Checked and checkbox4.Checked
  then showmessage ('1,65 млн рублей') else
if  checkbox2.Checked and checkbox3.Checked and checkbox4.Checked
  then showmessage ('0,95 млн рублей') else
if  checkbox3.Checked and checkbox4.Checked
  then showmessage ('0,8 млн рублей') else
if  checkbox4.Checked
  then showmessage ('0,2 млн рублей') else
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
if  checkbox1.Checked and checkbox2.Checked and checkbox3.Checked and checkbox4.Checked
  then showmessage ('1,05 млн рублей') else
if  checkbox2.Checked and checkbox3.Checked and checkbox4.Checked
  then showmessage ('0,6 млн рублей') else
if  checkbox3.Checked and checkbox4.Checked
  then showmessage ('0,5 млн рублей') else
if  checkbox4.Checked
  then showmessage ('0,1 млн рублей') else
end;
 
end.