unit Unit2;

{$mode objfpc}{$H+}{$M+}

interface

uses
   Classes, SysUtils, Unit1, Graphics, TAGraph, TASeries, TALegend;

type
TStorage = class;
Tcontroller = class;

TStorage = class
  private
     FCon: TController;
     procedure SaveData(var css1,css2,css3,css4,css5,muvss,ivss,nuvss,Tnuss :real);
      property Con: Tcontroller read FCon write FCon;
  public
    procedure ConnectController(var aController: TController);
  end;

Tcontroller = class
  private
    r:real;

implementation

end.