title: Access main form from child unit in Delphi
body: <p>I want to access a main form variable from a class that is called from the main from.
  Something like this:</p>
  
  <p><strong>Unit1:</strong></p>
  
  <pre><code>unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs,Unit2, StdCtrls;
  
  type
    TForm1 = class(TForm)
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
    private
    public
    end;
  var
    Form1: TForm1;
    Chiled:TChiled;
  const
   Variable = 'dsadas';
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    Chiled.ShowMainFormVariable;
  end;
  
  end.
  </code></pre>
  
  <p><strong>Unit2:</strong></p>
  
  <pre><code>unit Unit2;
  
  interface
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs;
  
    type
    TChiled = class
    private
    public
      procedure ShowMainFormVariable;
    end;
  var
    Form1: TForm1;
  implementation
  
  procedure TChiled.ShowMainFormVariable;
  begin
    ShowMessage(Form1.Variable);
  end;
  end.
  </code></pre>
  
  <p>if in Unit2 i add to uses Unit1 an circular errors pops up.</p>
  
  <p>How to make the Unit1 to be GLOBAL?</p>