1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  TSlot = class(TThread)
    function Channel:Integer;
  private
  protected
    procedure Execute; override;
  public
    constructor Create(new_id:integer);
    destructor Destroy; override;

    var id : integer;
end;					

1:

var Slots:array[1..480] of TSlot;					

1:
2:
3:
4:
5:
6:

var P:Pointer, id:integer;

begin
  id:=9;
  P:=@Slots[id].Channel; // GEHT NICHT!
end;					

1:
2:

for i:=1 to 480 do
Slots[i]:=TSlot.Create(i);					

1:
2:
3:
4:

type TChannelFunc = Fcuntion : Integer of object;
Var P: TChannelFunc;

P := @Slot[i].Channel;