Unit Test;

Interface

Type
  TBob=class
    Cabbage: integer;
    constructor Create;
    destructor Destroy; override;
    procedure DoInit;
  end;

Implementation

constructor TBob.Create;
begin

end;

destructor TBob.Destroy;
begin
end;

    procedure TBob.DoInit;
    begin
    end;

Initialization
End.