type
  IKKTInteface = interface
  ['{********-*******-*******-**********}']
    procedure AddProduct;
    procedure CreateCheck;
    procedure CreateZReport;
  end;


  //  Общий интерфейс для работы со всеми ККТ  
  TKKTInterface = class(TInterfacedObject, IKKTInteface)
  private
    FName: String;
  public

  end;

  TKKTATOL8 = class(TKKTInteКface, IKKTInteface)
  public
    // Методы, реализующие работу с ККТ АТОЛ 8
    function  AddProduct;
    function  CreateCheck;
    function  CreateZReport;
    // ....
  end;

  TKKTATOL10 = class(TKKTInteКface, IKKTInteface) 
  public
    // Методы, реализующие работу с ККТ АТОЛ 10
    function  AddProduct;
    function  CreateCheck;
    function  CreateZReport;
    // ....
  end;

  TKKTShtrih= class(TKKTInteКface, IKKTInteface) 
  public
    // Методы, реализующие работу с ККТ Штрихъ
    function  AddProduct;
    function  CreateCheck;
    function  CreateZReport;
    // ....
  end;

  TKKTPioneer= class(TKKTInteКface, IKKTInteface) 
  public
    // Методы, реализующие работу с ККТ Пионер
    function  AddProduct;
    function  CreateCheck;
    function  CreateZReport;
    // ....
  end;



procedure SetKKTType();
var
  KKT: IKKTInteface;
begin
   if Settings.Name = 'DTO8' then
     KKT := TKKTATOL8.Create
   else if Settings.Name = 'DTO10' then
     KKT := TKKTATOL10.Create
   else if Settings.Name = 'SHTRIH' then
     KKT := TKKTShtrih.Create
   else if Settings.Name = 'PIONEER' then
     KKT := TKKTPioneer.Create;
end;