[snake25237]

Hola a todos, vengo con un pequeño problema a ver si me pueden echar la mano. Tengo un ejercicio de la universidad el cual consiste en un programa de facturación, tengo un 80% del programa listo solo tengo un inconveniente: necesito pedir al cliente No. cédula de identidad, nombre y domicilio, para este proceso debo crear 3 array que almacenen CI, nombre y domicilio que se ingresan, de tal manera que si una persona vuelve a comprar solo precise del No de C.I... cuando se ingrese el numero de cédula el nombre y domicilio se deben llenar automáticamente. Realice un código con un botón para introducir los datos y otro botón para buscar clientes pero realmente no me funciona . acá esta el código no tengo idea si es asi que se hace solo improvise

Código SQL [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type
   tipo_arreglo = array[1..10] of string;
var
  Form1: TForm1;
  i: integer;
  ide,name,addres:string;
  dato_c,dato_n,dato_d: tipo_arreglo;
implementation

{$R *.dfm}

procedure llenar (base:tipo_arreglo;c:string);
begin
c:= inputbox('llenar datos','ingrese datos','');
base[i]:= c;
 end;


procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
showmessage('Introduzca la C.I./R.I.F');
llenar(dato_c,ide);
showmessage('Introduzca el nombre');
llenar(dato_n,name) ;
showmessage('Introduzca la direccion');
llenar(dato_d,addres);
end;



procedure TForm1.Button3Click(Sender: TObject);
var
a:integer;
valor: string;
begin
 valor:= inputbox('llenar','introduzca el rif o ci','0');
for a:=1 to i do
begin
if valor = dato_c[i] then
end;
begin
listbox1.Items.Add(dato_c[i]);
listbox1.Items.Add (dato_n[i]);
listbox1.Items.Add (dato_d[i]);

end;
if valor<> dato_c[i] then
showmessage('cliente no encontrado');
end;



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


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

end.

muchas gracias de antemano.