program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, tachartlazaruspkg, Unit1, myclasses;
  { you can add units after this }

{$R *.res}


  var
KB : TBorder;
KC : TController;
KC2 : TController2;
KS : TStorage;
KS2 : TStorage2;


begin
 i:=0;
 j:=0;
 k:=0;
 l:=0;
 m:=0;
 n:=0;
 o:=0;
 p:=0;


  Application.Initialize;
      KC := TController.Create;
      KC2 := Tcontroller2.Create;
      KS := TStorage.Create;
      KS2 := TStorage2.Create;
  Application.CreateForm(TBorder, KB);
      KB.Caption:='May, 2018';
      KB.ConnectController(KC);
      KC.ConnectBorder(KB);
      KB.ConnectController2(KC2);
      KC2.ConnectBorder(KB);
      KC.ConnectStorage(KS);
      KS.ConnectController(KC);
      KC2.ConnectStorage2(KS2);
      KS2.ConnectController2(KC2);
      Application.Run;

      KB.Button1Click(KB);
      KB.Button2Click(KB);
end.