Как создать ссылку на процедуру и поместить её в поле объекта?

procedure ProcTarget;
var x:integer;
begin
   for i:=0 to Border do begin
   if i>=Border-3 then begin clrscr; i2:=0; i:=0; end;
      x:= random(4);
   If (KeyPressed) then Transfer(TDesc,Main);
   textcolor(green);
      if i<1 then i:=1;
      if i>border then i:=border-1;
      if fine<1 then fine:=1;
      if fine>bottom then fine:=bottom-1;
 
      {if x = 0 then begin i:=i+1; gotoxy(i,fine); write('*'); end;
      if x =1  then begin fine:=fine+1; gotoxy(i,fine); write('*'); end;
      if x = 2 then begin i:=i-1; gotoxy(i,fine); write('*'); end;
      if x = 3 then begin fine:=fine-1; gotoxy(i,fine); write('*'); end;}
      GoToXY (random(100), random(100)); write ('*');
      {if (i+fine) mod 6 = 0 then fine:= fine+1; }
      textcolor(green);
      Delay (Time);
      textcolor(red);
      Transfer(TDesc,GDesc);
     { GoToXY(i,Line);  write(NTarget)     }
   end; {for}
   Transfer(TDesc,Main)
end; {ProcTarget}

type Sopr = object
    TDesc : Procdesc;
    TStec : Artype;
    color : string;
{Вот в это поле нужно поместить ссылку на процедуру}
    my_proc: ^ProcTarget
end;

type Sopr = object
  . . .
  my_proc : Procedure; { процедурный тип }
end;
 
. . .
 
val.my_proc := ProcTarget; { назначаем процедуру }
 
. . .
 
val.my_proc; { вызываем процедуру }

Program Example;
uses Corutine, Crt;
 
type Sopr = object
    TDesc : Procdesc;
    TStec : Artype;
    color : string;
        my_proc : procedure;
        procedure ProcTarget;
end;
 
 
const Target = '*****'; Ntarget = ' ';
      Bul ='';  NBul = '^';
      Bottom = 24; Border = 74; First = 40; Time = 100;
      Line = 1;
var TDesc,GDesc,Main, CDesc: Procdesc;
    Tstec,GStec, CStec: Artype;
    i,j:  integer;
    fine: integer;
    i2, fine2: integer;
    sopr_object: Sopr;
 
procedure ProcTarget;
var x:integer;
begin
   for i:=0 to Border do begin
   if i>=Border-3 then begin clrscr; i2:=0; i:=0; end;
      x:= random(4);
   If (KeyPressed) then Transfer(TDesc,Main);
   textcolor(green);
      if i<1 then i:=1;
      if i>border then i:=border-1;
      if fine<1 then fine:=1;
      if fine>bottom then fine:=bottom-1;
      Transfer(TDesc,GDesc);
   end; {for}
   Transfer(TDesc,Main)
end; {ProcTarget}
 
procedure ProcTarget2; far;
var x:integer;
begin
   for i2:=0 to Border do begin
   if i2>=Border-3 then begin clrscr; i2:=0; i:=0; end;
      x:= random(4);
   If (KeyPressed) then Transfer(TDesc,Main);
   textcolor(red);
      
      Transfer(GDesc,CDesc);
   end; {for}
   Transfer(GDesc,CDesc)
end; {ProcTarget}
 
 
begin
sopr_object.my_proc := ProcTarget; { теперь ругается в этом месте. Ошибка та же самая}\
 
   NewProcess (sopr_object.ProcTarget, TDesc, TStec); { до этого ругалась только здесь}
   NewProcess (ProcTarget2, GDesc, GStec);
   NewProcess (ProcGun, CDesc, CStec);
   Transfer (Main ,TDesc)  ;
   clrscr;
end.

type
 
 Sopr = object
      color : string;
      my_proc : procedure;
      constructor Create;
 end;
 
var
  sopr_object: Sopr;
 
constructor Sopr.Create;
begin
  color := 'undefined'
end;
 
{$F+}
procedure ProcTarget;
begin
  WriteLn('ProcTarget')
end; {ProcTarget}
 
procedure ProcTarget2;
begin
  WriteLn('ProcTarget Number 2')
end; {ProcTarget2}
{$F-}
 
begin
   sopr_object.Create;
 
   sopr_object.my_proc := ProcTarget;
 
   WriteLn('Exec my_proc:');
   sopr_object.my_proc;
 
 
   sopr_object.my_proc := ProcTarget2; 
   WriteLn('Exec my_proc:');
   sopr_object.my_proc;
end.

uses CoRoutin;
 
var
  spMain, spTask1, spTask2: TStackPtr;
 
procedure CoTask1; far;
var i: Integer;
begin
  for i:=1 to 9 do begin
    WriteLn('Task 1: ',i);
    Transfer(spTask1,spTask2);
  end;
  Transfer(spTask2,spMain);
end;
 
procedure CoTask2; far;
var i: Integer;
begin
  for i:=9 downto 1 do begin
    WriteLn('Task 2: ',i);
    Transfer(spTask2,spTask1);
  end;
  Transfer(spTask2,spMain);
end;
 
var
  hwStack: array [1..2] of ThwStack;
begin
  NewProcess(CoTask1,spTask1,hwStack[1]);
  NewProcess(CoTask2,spTask2,hwStack[2]);
  Transfer(spMain,spTask1);
end.

procedure ProcTarget; far;

{$F+}
procedure ProcTarget;