OnClick mit zwei Units

[julchen]

Hallo,

ich habe eine Verständnisfrage ...
Ich wollte Code auf zwei, drei Units verteilen, um einen besseren Überblick zu halten.

Ich habe das jetzt mal so ausprobiert.
Button1 soll unter unit1 laufen, Button2 unter unit2:

Code:

unit unit_unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses unit_unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption := '1';
end;

end.

Code:

unit unit_unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

  procedure Button2Click(Sender: TObject);

implementation
uses unit_unit1;

procedure Button2Click(Sender: TObject);
begin
    Form1.Label2.Caption := '2';
end;

end.

Das Problem ist OnClick.

Warum kann ich nicht den Button2 bei OnClick zuweisen?
Da steht nur Button1 drin.
Kann also nicht funktionieren.
Nur warum und was mache ich falsch?
Viele Grüsse