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:
34:
35:
36:
37:
38:
39:
40:

unit XYZ;

interface

uses
  SysUtils;

type
  TTest = class
  private
    FContents: Integer;
  public
    constructor Create(AValue: String); overload;
    constructor Create(AValue: Integer); overload;
    property Contents: String read GetContents;
  end;

function GetAnswerToLifeUniverseAndEverything: String;

implementation

function GetAnswerToLifeUniverseAndEverything: String;
begin
  Result := '42';
end;

constructor TTest.Create(AValue: String); overload;
begin
  FContents := StrToInt(AValue);
end;

constructor TTest.Create(AValue: Integer); overload;
begin
  FContents := AValue;
end;

function TTest.GetContents: String;
begin
  Result := IntToStr(FContents);
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:
34:

unit Main;

interface

uses
  ..., XYZ;

type
  TfrmMain = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ButtonXClick(Sender: TObject);
  private
    FMyTest: TTest;
  public
  end;

implmentation

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FMyTest := TTest.Create('40');
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  FMyTest.Free;
end;

procedure TfrmMain.ButtonXClick(Sender: TObject);
begin
  ShowMessage(FMyTest.Contents);
  ShowMessage(GetAnswerToLifeUniverseAndEverything());
end;