program ProjectUML;

{%TogetherDiagram 'ModelSupport_ProjectUML\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_ProjectUML\ProjectUML\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_ProjectUML\UnitUML\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_ProjectUML\default.txvpck'}
{%TogetherDiagram 'ModelSupport_ProjectUML\UnitUML\default.txvpck'}
{%TogetherDiagram 'ModelSupport_ProjectUML\ProjectUML\default.txvpck'}
{%TogetherDiagram 'ModelSupport_ProjectUML\UnitUML\Use Case Diagram1.txvuse'}
{%TogetherDiagram 'ModelSupport_ProjectUML\UnitUML\Sequence Diagram1.txvint'}
{%TogetherDiagram 'ModelSupport_ProjectUML\UnitUML\Deployment Diagram1.txvdpl'}

uses
  Forms,
  UnitUML in 'UnitUML.pas' {FormBase};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFormBase, FormBase);
  Controller:= TController.Create;
  Storage := TStorage.Create;
  //Storage:= TStorage.Create;
  //Border:=TBorder.Create(nil);
  //Border.Connect(Controller);
  //Controller.;
  //Storage.Connect(Controller);
  //Application.CreateForm(TBorder, Border);
  UnitUML.Controller.ConnectBorder(FormBase);
  UnitUML.Controller.ConnectStorage(Storage);
  UnitUML.Storage.ConnectController(Controller);
  UnitUML.FormBase.ConnectController(Controller);
  Application.Run;
end.