program ideone;

type
  Parent = Class
  	procedure Print; virtual;
  end;

  Child = Class(Parent)
    procedure Print; override;
  end;
  
procedure Parent.Print;
begin
  writeln('Parent Print');
end;

procedure Child.Print;
begin
  writeln('Child Print');
end;

var
  C: Child;
  P: ^Parent;
begin
  C := Child.Create();
  P := @C;
  P.Print();
end.