procedure TfrmMain.PersonRecord1Click(Sender: TObject);
var 
  f:TForm5;
begin
  f := TForm5.Create(Self);
  try
    if f.ShowModal = mrOk then
    if f.PersonCount > 0 then
    ShowMessage('The first person is' + #13 + '"' 
                + f.PersonArray[0].FirstName + '" "'
                + f. PersonArray[0].LastName + '"');
  finally
    f.Release;
  end;
end;

unit kg_Globals; //saved as kg_Globals

interface

uses 
  Windows,Dialogs,SysUtils,Messages,Classes,Forms,FileCtrl;

const 
  ARRAY_SIZE = 5; {Could be a larger size}

type

{Keep each record member to strings to 
make the example code easy to understand}

Tkg_People = Record
  FirstName : String;
  LastName : String;
  Street : String;
  City : String;
  State : String;
  ZipCode : String;
  Phone : String;
  Email : String;
end;

implementation

end. 

...
public
{ Public declarations }
  PersonArray: Array [0..ARRAY_SIZE] of Tkg_People;
  PersonCount: Integer;
...

procedure TForm5.ClearEdits;
var i:Integer;
begin
{ sets each TEdit control's 
text property to an empty string }
  for i := 0 to ComponentCount -1 do
    if (Components[i] is TEdit) then
      TEdit(Components[i]).Text := '' ;
end;

procedure TForm5.cmdAddPersonClick(Sender: TObject);
begin
  { Populate a record in an element in 
  the array of records with current textbox values }

  PersonArray[PersonCount].FirstName := First.Text;
  PersonArray[PersonCount].LastName := Last.Text;
  PersonArray[PersonCount].Street := Street.Text;
  PersonArray[PersonCount].City := City.Text;
  PersonArray[PersonCount].State := State.Text;
  PersonArray[PersonCount].ZipCode := Zip.Text;
  PersonArray[PersonCount].Phone := Phone.Text; 
  PersonArray[PersonCount].Email := Email.Text;
  Inc(PersonCount);
        
 {
  Once the maximim elements are used up, 
  disable this button.

  NOTE: ARRAY_SIZE is a user defined constant 
  created for this demo. The Constant indicates 
        how many records can be accessed in the array. 
  }

  TButton(Sender).Enabled := PersonCount < ARRAY_SIZE; 

  {
  If we can still add more persons clear 
  old entries, place focus on "First" 
  name text control
  }

  if TButton(Sender).Enabled then 
  begin
    ClearEdits;
    First.SetFocus ;
  end
  else
    { Exit time , give them a hint by 
    placing focus on the exit button }
    cmdCloseForm.SetFocus ;
end;

type
TResultsForm = class(TForm)
  ResultsLabel: TLabel;
  OKButton: TButton;
  procedure OKButtonClick(Sender: TObject);

 private

 public
  constructor CreateWithButton(whichButton: Integer; Owner: TComponent);
end;

constructor CreateWithButton(whichButton: Integer; Owner: TComponent);
begin
  case whichButton of
    1: ResultsLabel.Caption := 'You picked the first button.'; 
    2: ResultsLabel.Caption := 'You picked the second button.';
    3: ResultsLabel.Caption := 'You picked the third button.';
  end;
end;

procedure TMainForm.SecondButtonClick(Sender: TObject);
var
  rf: TResultsForm;
begin
  rf := TResultsForm.CreateWithButton(2, self);
  rf.ShowModal;
  rf.Free;
end;

type
TResultsForm = class(TForm)
  ResultsLabel: TLabel;
  OKButton: TButton;

 private

 public
  constructor Create(whichButton: Integer; Owner: TComponent); reintroduce;
end;

constructor TResultsForm.Create(whichButton: Integer; Owner: TComponent);
begin 
  inherited Create(Owner) ;
  case whichButton of
    1: ResultsLabel.Caption := 'You picked the first button.';
    2: ResultsLabel.Caption := 'You picked the second button.';
    3: ResultsLabel.Caption := 'You picked the third button.';
  end;
end;

procedure TMainForm.SecondButtonClick(Sender: TObject);
var
  f: TResultsForm ;
begin
  f := TResultsForm.Create(2, self);
  try
    f.ShowModal;
  finally
    f.Release ;
  end;
end;