program project1;

{$mode objfpc}{$H+}{$X-}

uses
  Classes;

type

  { TMyObject }

  TMyObject = class
  private
    procedure Test;
  end;

{ TMyObject }

procedure TMyObject.Test;
begin

end;

var
  c: TMyObject;
  p: pointer;


begin
  c := TMyObject.Create;
  @C.Test;
  C.Test;
end.

