Бесплатные компоненты

type
  TComboBox = class(Vcl.StdCtrls.TComboBox)
  private
    Fparam: string;
    procedure MyProc;
  end;
 
  TfrmSetPrinter = class(TForm)
    comboCutter: TComboBox;
...

unit MyCtrls;
 
interface
 
uses
  Vcl.StdCtrls, System.Classes, System.SysUtils, System.Generics.Collections;
 
type
  TParamComboBox = class(Vcl.StdCtrls.TComboBox)
  private
    FData: TDictionary<string,string>;
    FStored: string;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure AddParam(const Value,Text: string);
    procedure SetStoredParam(const Value: string);
    function SelectedParam: string;
    function Modified: boolean;
  end;

type
  TComboBox = class(MyCtrls.TParamComboBox) end;
 
  TfrmSetPrinter = class(TForm)
    comboCutter: TComboBox;
...

var 
   RS: _Recordset;
...
RS := AdoConnection1.Execute('select ID from AnyTable');

AdoConnection1.Execute(Format('insert into AnyTable (Value) Values(%s)', [QuotedStr('Значение')]));

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin
  Inc(Counter);
  Label1.Caption:= IntToStr(Counter);
  Application.ProcessMessages;
end;