program project1;

{$mode objfpc}{$H+}

uses
  Classes, Unit1, Unit2;


var
  obj: TMyObj1;
begin
  obj := TMyObj1.Create;
  try
    obj.DoSomething;
  finally
    obj.Free;
  end;
end.

