unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls,
  vetis;

type
  TfmMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;
  Vetis: TVetis;

implementation

{$R *.dfm}

uses udm;

procedure TfmMain.Button1Click(Sender: TObject);
begin
   Vetis:=TVetis.Create;
   Vetis.GeoSpr.Create;
end;

end.

unit vetis;

interface

uses
  Classes, forms, windows,dialogs;


type
  TGeoSpr = class;

  TVetis = class(TObject)
  private
  public
     GeoSpr: TGeoSpr;
     constructor Create;
     destructor Destroy; override;
  end;

  TGeoSpr = class(TVetis)
  private
  public
     constructor Create;
     destructor Destroy; override;
  end;

implementation

constructor TVetis.Create;
begin
   inherited Create;
end;

destructor TVetis.Destroy;
begin
   inherited Destroy;
end;

constructor TGeoSpr.Create;
begin

end;

destructor TGeoSpr.Destroy;
begin
  inherited Destroy;
end;

end.