type
    PHelloWorld = ^THelloWorld;
    THelloWorld = object
    private
        s: string[12];
    public
        procedure SayHello;
        constructor create;
    end;

procedure THelloWorld. SayHello;
begin writeLn(s) end;

constructor THelloWorld.create;
begin s:='Hello, World!' end;

var hello: PHelloWorld;
begin
   new(hello, create);
   hello^.SayHello;
   dispose(hello)
end.