procedure ListOfComand;
var List: TObjectList;
    i: Integer;
begin
  List := TObjectList.Create;
  List.Add(TComand.Create('MOV A,A', '7F', 1));
  List.Add(TComand.Create('MOV A,B', '78', 1));
  List.Add(TComand.Create('MOV A,C', '79', 1));

TComand = class
    private
      FMnemoCode:string;
      FCode:string;
      FRowCount:integer;
    public
      constructor Create(AMnemoCode: String; ACode: string; ARowCount: integer);
 
      property MnemoCode: string read FMnemoCode write FMnemoCode;
      property Code: string read FCode write FCode;
      property RowCount: integer read FRowCount write FRowCount;
      procedure MOV(Aname,Bname:string);//на счет этого не уверен
  end;
implementation
 
constructor TComand.Create(AMnemoCode: String; ACode: string; ARowCount: integer);
begin
 
  FMnemoCode:=AMnemoCode;
  FCode:=ACode;
  FRowCount:=ARowCount;
end;

constructor TComand.Create(AMnemoCode: String; ACode: string; ARowCount: integer;AProc: TMyProc);
begin
  FMnemoCode:=AMnemoCode;
  FCode:=ACode;
  FRowCount:=ARowCount;
  FProc: AProc;
end;

FProc:= AProc;

procedure TRegister.CreateReg;
begin
regA:=Tregister.create;
end;

procedure TRegister.AddReg;
begin
regA.Rname:='A';
regA.value:='00';
regA.AIndex:=0;
end;

procedure TRegister.DelReg;
begin
regA.Free;
end;

procedure TEm.BitBtn1Click(Sender: TObject);
begin
TRegister.Addreg;
label1.Caption:=regA.RName;
end;

procedure TEm.FormCreate(Sender: TObject);
begin
Tregister.CreateReg;
end;

procedure TEm.FormDestroy(Sender: TObject);
begin
Tregister.delReg;
end.

TRegister = class(TProcessor)
  protected
  fvalue:string;
  fRName:string;
  fIndex:integer;
  //procedure SetRegister( Value:string);
  //function GetRegister:string;
  public
  property value:string read fvalue write fvalue;
  property RName:string read fRName write fRName;
  property AIndex:integer read fIndex write fIndex;
  procedure CreateReg;
  procedure AddReg();
  procedure DelReg();
  end;

procedure TCommand.AddCommand;
begin
MOV_A_A.fNameCode:='MOV A,A';
MOV_A_A.fOpCode:='$7F';
MOV_A_A.RowCount:=1;
MOV_A_A.fCom:=MVI;

end;