Circular unit reference

[day]

Hallo

ich bekomme folgende Fehlermeldung:

Circular unit reference to 'ClientMain'

und zwar habe ich zwei Units (ClientMain und MainView). Im ClientMain habe ich ein MainFrame objekt welchem ich beim create ClientMain übergeben möchte.

wie kann ich das problem lösen?

Delphi-Quellcode:

unit ClientMain;

interface

uses
  Windows,
  MainView; //MainView wird benötigt damit ich MainView Objekt erzeugen kann

type
  TClientUnit = class(TForm)

  private

    mMainView : TMainFrame;
  public

  end;

var
  ClientUnit: TClientUnit;

.
.
.
procedure TClientUnit.FormCreate(Sender: TObject);
begin

    mMainView := TMainFrame.Create(self);
    mMainView.Visible := True;

end;



unit MainView;

interface

uses
  Windows, 
  ClientMain;  //ClientMain für den zugriff auf die Mainklasse

type
  TMainFrame = class(TForm)
  private
    { Private declarations }
  public
    procedure create(clientMain : TClientMain);
  end;


var
  MainFrame: TMainFrame;

implementation

[edit=MrSpock]Code Tags korrigiert. Mfg, MrSpock[/edit]