procedure TRegister.CreateReg;
begin
regA:=Tregister.create;
regB:=Tregister.create;
regC:=Tregister.create;
regD:=Tregister.create;
regE:=Tregister.create;
regH:=Tregister.create;
regL:=Tregister.create;
cterPC:=Tregister.create;
cterSP:=Tregister.create;
end;

regA:=Tregister.create;
regA.CreateReg;

type
TMyType = (MOV_A_A, MOV_A_B, MOV_A_C .......  HLT1);
var Command: array[TMyType] of TCommand;


procedure CreateCommand;
var i: TMyType;
begin
  for i := Low(TMyType) to High(TMyType) do
    Command[i] := TCommand.Create;
end'

TCommand = class
  procedure Execute; virtual;
end;

TCommand_MoveAA = class(TCommand)
  procedure Execute; override;
end;

var C: TCommand;
begin
  C := TCommand_MoveAA.Create;
  C.Execute;
  C.Free;
end;

type
TMyProc = procedure (const A,N:string) of object;
TCommand = class
  private
    fMyProc: TMyProc;
    procedure MOV_A_A(const A,N:string);
    procedure MOV_A_B(const A,N:string);
  public
   procedure Execute;
end;

procedure CreateCommand;
var i: TMyType;
    S: string;
    M: TMethod;
begin
  for i := Low(TMyType) to High(TMyType) do begin
    Command[i] := TCommand.Create;
    S := TypInfo.GetEnumName(TypeInfo(TMyType),ord(i));
    M.Code := TCommand.MethodAddress(S);
    M.Data := nil;
    Command[i].fMyProc := TMyProc(M);
  end;
end;

procedure TCommand.Execute;
begin
  if Assigned(fMyProc) then fMyProc(Param1,Param2);
end;

// Тестируем
initialization
  CreateCommand;
  Command[MOV_A_A].Execute;
  Command[MOV_A_B].Execute;
  Command[MOV_A_C].Execute;