type ObjTest = Object
     End;

Procedure ObjTest;
Begin
end;

Begin
end.