1:
2:
3:
4:

var
  a: Integer;
begin
  ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

uses
  UserInfo, SecondFormUnit;

procedure TfrmMain.btnShowClick(Sender: TObject);
begin
  frmSecond.Free;
  frmSecond := TfrmSecond.Create(nil);
  frmSecond.UserInfo := TUserInfo.Create(edtFirstName.Text, edtFamilyName.Text);
  frmSecond.Show;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

type
  TfrmSecond = class(TForm)
    lblFirstNameDisplay: TLabel;
    lblFamilyNameDisplay: TLabel;
    btnClose: TButton;
    procedure btnCloseClick(Sender: TObject);
  private
    FUserInfo: TUserInfo;
    procedure SetUserInfo(const Value: TUserInfo);
  public
    property UserInfo: TUserInfo read FUserInfo write SetUserInfo;
  end;

var
  frmSecond: TfrmSecond;

implementation

{$R *.dfm}

procedure TfrmSecond.btnCloseClick(Sender: TObject);
begin
  Close;
end;

{ TfrmSecond }

procedure TfrmSecond.SetUserInfo(const Value: TUserInfo);
begin
  FUserInfo := Value;
  lblFirstNameDisplay.Caption := Value.FirstName;
  lblFamilyNameDisplay.Caption := Value.FamilyName;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TUserInfo = record
    FirstName: string;
    FamilyName: string;
    constructor Create(const AFirstName, AFamilyName: string);
  end;

implementation

{ TUserInfo }

constructor TUserInfo.Create(const AFirstName, AFamilyName: string);
begin
  FirstName := AFirstName;
  FamilyName := AFamilyName;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

//private der klasse
FValues: array [0..19] of string;
//public der klasse
procedure SetValue(AIndex: integer; AValue: string);
function GetValue(AIndex: integer): string;
// --> füllen kannst du die Methoden selber, du postest ja auch lieber bilder anstatt einfach quelltext einzufügen ;-) 

//das ginge dann jetzt sogar mit eim property für den zugriff
property Values[AIndex: integer]: string read GetValue write SetValue;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  UserInfo: TUserInfo;
begin
  ...
  UserInfo := frmSecond.UserInfo;
  UserInfo.FirstName := 'blub';
  UserInfo.FamilyName := 'boo';
...