Guardar registros
 

Hola, tengo un prgrama para facturar, pero tmb necesito que guarde los registros que ingreso y haga consultas de esos registros, me dijieron que lo hiciera con arreglos y variables tipo record, ya lo hice pero al ponerle guardar no me los guarda, Queria ver si alguien me pudiera ayudar, aqui esta el codigo para que me digan en que le estoy errando, de antemano gracias:

Código Delphi [-]
unit factura;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    Image1: TImage;
    botonsalir: TBitBtn;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Timer1: TTimer;
    Label13: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    Label14: TLabel;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure botonsalirClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  cont1: integer;
  fecha: Tdate;
  clientes : record
  nombre:  string;
  direccion: string;
  telefono: integer;
  rfc:  string;
  ciudad: string;
  end;
  facturas : record
  numfactura: integer;
  rfc: string;
  end;
  Acliente:array[1..5] of string;
  Afactura: array[1..3] of string;

const
  Alcatel560=499;
  Benq100=450;
  Nokia6101=1049;
  Nokia6131=2199;
  Nokia5300=2190;
  Nokia5200=1799;
  Nokia3250=3700;
  MotorolaF3=299;
  MotorolaV3e=2500;
  MotorolaZ3=3500;

implementation

{$R *.dfm}

procedure TForm1.botonsalirClick(Sender: TObject);
begin
        close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      label9.Caption:=datetostr(date);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var
   costo: string;
begin

end;







procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text = 'Alcatel560' then
        label13.Caption:=inttostr(Alcatel560);
        if combobox1.Text = 'Benq100' then
         label13.Caption:=inttostr(Benq100);
            if combobox1.Text = 'Nokia6101' then
         label13.Caption:=inttostr(Nokia6101);
              if combobox1.Text = 'Nokia6131' then
         label13.Caption:=inttostr(Nokia6131);
                if combobox1.Text = 'Nokia5300' then
         label13.Caption:=inttostr(Nokia5300);
                   if combobox1.Text = 'Nokia5200' then
         label13.Caption:=inttostr(Nokia5200);
                       if combobox1.Text = 'Nokia3250' then
         label13.Caption:=inttostr(Nokia3250);
                            if combobox1.Text = 'MotorolaF3' then
         label13.Caption:=inttostr(MotorolaF3);
                                if combobox1.Text = 'MotorolaV3e' then
         label13.Caption:=inttostr(MotorolaV3e);
                                    if combobox1.Text = 'MotorolaZ3' then
         label13.Caption:=inttostr(MotorolaZ3);









end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
        if combobox2.Text = '1' then
              edit5.Text:= label13.Caption;
                if combobox2.Text = '2' then
                  edit5.Text:= inttostr(strtoint(label13.Caption)*2);
                    if combobox2.Text =  '3' then
                     edit5.Text:= inttostr(strtoint(label13.Caption)*3);


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Acliente[1]:= edit1.text;
Acliente[2]:= edit2.text;
Acliente[3]:= edit3.text;
Acliente[4]:= edit6.text;
Acliente[5]:= edit4.text;
Afactura[1]:= edit4.text;
Afactura[2]:= label9.Caption;
Afactura[3]:= edit3.text;
cont1:=cont1+1;




end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    cont1 := 0;
end;

end.