对类对象的方法操作

断断续续学习delphi，对类的定义和对象的操作始终处于朦朦胧胧的一种状态，今天搜索看到用类写的对对象的方法操作，我就编写控制台程序，使用没有通过，后来想起对象就是指针，用@传递，编译通过，这样基本算是了解了类的定义。

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes  ,windows,Dialogs,SysUtils
  { you can add units after this };
type
  Tbb=procedure of object ;//定义过程
type
  ta=class   //class a
   private
    s:string;
    gh:Tbb;
   public
   q:string;

   procedure myadd;
   procedure mj;
   procedure wl;
    property onchlick:Tbb read gh write gh ;
  end;

procedure ta.mj;

begin
     writeln('this is ta.mj');

 end;

procedure ta.myadd;

begin
   onchlick:=@mj;
writeln('this procedure ta.myadd');
end;

procedure ta.wl;
begin
         writeln('this is wl');
end;
function k(u:ta):string;
  var
    l:string;
  begin

          u.q:='alok';
            l:=u.q;
           result:=(u.q);
    end;

var
   p:ta;
  d:string;
        kl:tbb;
begin

          p:=ta.Create;

        p.myadd;
          p.onchlick;
   p.Free;
   readln;

end.