Objeto global a la aplicación

[noob]

Perdona mi ignorancia pero, ¿cómo puedo adaptarlo a mi programa?

Supongamos que tengo un formulario y dos clases: Form1, cClase2, cClase3.

Form1:

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Clase2: cClase2;
begin
  Clase2 := cClase2.Create;
  Clase2.anadir(Edit1.Text);
end;

end.

Unit2:

Código Delphi [-]
unit Unit2;

interface

type
  cClase2 = class
              private
              public
                procedure anadir(Mensaje: string);
            end;

implementation

uses Unit3;

procedure cClase2.anadir(Mensaje: string);
begin
  with Clase3 do
    Contenido := Contenido + Mensaje;
end;

end.

Unit3:

Código Delphi [-]
unit Unit3;

interface

type
  cClase3 = class
              private
              public
                Contenido: string;
            end;

var
  Clase3: cClase3;

implementation

end.

Lo que yo quiero es crear el objeto de la clase cClase3 nada más inicializarse la aplicación para que luego cuando pulse al botón el objeto ya esté creado (como he dicho al principio prescindiendo de un módulo de datos).