Das ganze geht zu vereinfachen. Dazu MUSS ki_status_0 bis ki_status_K jedoch im Published definiert sein (also nicht im Private, public oder protected).
Anschließend geht folgendes:
Delphi-Quellcode:
type
TObjProc = procedure of Object;
var LMethod: TObjProc;
begin
@LMethod := MethodAddress('ki_status_' + ki_status[1]);
if Assigned(LMethod) then
LMethod;