InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

procedure TfrmEditDevice.InitCheckComboBox(App: TFuncApp; ctrl: TCheckedComboBox; aSql: string; aStr: string; const ParamArr: array of const);
var s: string;
    i: integer;
    bool: boolean;
    que: TOraQuery;
begin
  que := GetQueryBySQL(aSql, ParamArr);
  try
    with ctrl do begin
      Clear;
      with que do begin
        First;
        while not Eof do begin
          s := '';
          if (que.FieldCount = 3) then
            if Fields[2].asString <> '' then
              s := '['+Fields[2].asString+'] ';
          Items.Add(Fields[0].asString+' - '+s+Fields[1].asString);
          Next;
        end;
      end;
      for i := 1 to Items.Count do begin
        s := Trim(GetWord(1,Items[i-1],['-']));
        bool := IsWordPresent(s,aStr,[',']);
        Checked[i-1] := bool;
      end;
    end;
  finally
    que.Close;
    App.QI.FreeQuery(que);
  end;
end;

type
    shDEV_PAYSYSTEM: TOraScript;
    ccbDEV_PAYSYSTEM: TCheckedComboBox;
...
var aApp:TFuncApp;
FContractKind: integer;
...
InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

 InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

function GetCheckComboBoxValue(ctrl: TCheckedComboBox): string;
var aStr : string;
    i    : integer;
begin
  aStr := '';
  result := '';
  with ctrl do begin
    for i := 1 to Items.Count do begin
      if Checked[i-1] then
        aStr := aStr + Trim(GetWord(1,Items[i-1],['-']))+',';
    end;
  end;
  if aStr <> '' then
    delete(aStr,Length(aStr),1);
  result := aStr;
end;

function GetCheckComboBoxValue(ctrl: TCheckedComboBox): string;
var 
    i: integer;
begin
  result := '';
  if not Assigned(ctrl) then
    Exit;
  for i := 0 to ctrl.Items.Count - 1 do 
      if ctrl.Checked[i] then
      begin
        if Result <> '' then
          Result := Result + ',';
        Result := Result + Trim(GetWord(1, ctrl.Items[i], ['-']));
      end;
  end;
end;

InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

  que := GetQueryBySQL(aSql, ParamArr);