Kalde procedure med self variabel

Hej eksperter.

Hvad kan jeg gøre i nedenstående tilfælde:(jeg har kun kopieret relevant kode)

  type Tsignal = class
    ukort:integer;
    port:Tport;
    constructor create(ukort:integer;port:Tport);
    procedure SetGreen;
  end;

type Tkort = class
      procedure WriteKort(port:integer;setting:boolean);
  end;

procedure Tsignal.SetGreen;
    begin
  case ukort of
  1: kort1.WriteKort(self.port,true);
  2: kort2.WriteKort(self.port,true);
  3: kort3.WriteKort(self.port,true);
  4: kort4.WriteKort(self.port,true);
  5: kort5.WriteKort(self.port,true);
  ......
  end;
  end;


  procedure Tkort.WriteKort(port:integer;setting:boolean);
  begin
  porte[port]:=setting;
  end;

Jeg vil gerne af med case sætninger i SetGreen proceduren og i stedet gøre noget i retning af:

procedure Tsignal.SetGreen;
  begin
  (kort+(self.ukort)).WriteKort(self.port,true);
  end;

Er det mulig?

Pft. Ellgaard