unit class_source;

interface

uses user_types, class_values;

{$REGION 'ÊËÀÑÑ ÈÑÒÎ×ÍÈÊ'}
type
  TRDSource = class (TObject)
    private

    public
      src_program: TRDValues;
      src_device : TRDValues;

      constructor Create;
      destructor Destroy; override;
end;

implementation

constructor TRDSource.Create;
begin
  //
end;

destructor TRDSource.Destroy;
begin
  inherited;
  Self.src_program.Free;
  Self.src_device.Free;

end;


end.
