Сопоставление sqlValue с одним из значений запроса

SQLExecute('SELECT Staff.id FROM Staff  JOIN DictPosition ON staff.id_DictPosition=DictPosition.id WHERE Administrative =1 

FrmReportCard.CBStaff.sqlValue = SQLExecute('SELECT Staff.id FROM Staff  JOIN DictPosition ON staff.id_DictPosition=DictPosition.id WHERE Administrative =1 AND FrmReportCard.CBStaff.sqlValue = Staff.id') 

procedure frmReportCard_BtSearch_OnAfterClick (Sender: TObject);
begin
ShowMessage ('Результат выбора - ' +FrmReportCard.CBStaff.sqlValue+);
 begin
   // If FrmReportCard.CBWork.ItemIndex = -1 then
     //begin
      if  FrmReportCard.CBStaff.sqlValue =  SQLExecute('SELECT Staff.id FROM Staff  JOIN DictPosition ON staff.id_DictPosition=DictPosition.id WHERE Administrative = 1')
       Then
        begin
         FrmReportCard.SaveRepCard.Enabled := True;
         ShowMessage ('Можно сохранять запись')
        end
 Else if FrmReportCard.CBStaff.sqlValue = SQLExecute('SELECT Staff.id FROM Staff  JOIN DictPosition ON staff.id_DictPosition=DictPosition.id WHERE Administrative = 0')
        Then
         begin
          FrmReportCard.CBWork.DroppedDown := True;
          FrmReportCard.SaveRepCard.Enabled := False;
          ShowMessage ('Нельзя сохранить запись');
         end
     //end
 end
end;

//***********************************************************************************************
//подмена кнопки авторизации при выборе в комбобоксе логина без пароля***************************
//требуется для авторизации без пороля***********************************************************
//***********************************************************************************************
procedure frmLogin_cbStatus_OnClick (Sender: TObject);
begin
   // если выбранный логин имеет значение 1 (без пароля)
   if SQLExecute('SELECT pass FROM users WHERE id='+frmLogin.cbStatus.sqlValue)='1' then
   begin
    // скрыть поле пароль
    frmLogin.ePassword.Visible:=False;
    // скрыть кнопку авторизации по поролю
    frmLogin.bLoginOk.Visible:=False;
    // отобразить в поле статутаса права выбранного пользователя
    frmLogin.eStatus.text := sqlexecute('SELECT userStatus.userStatusName FROM users LEFT OUTER JOIN userStatus ON userStatus.id=users.id_userStatus WHERE users.id=' +frmLogin.cbStatus.sqlValue);
     end else
     //иначе если выбранный логин имеет значение не 1
     if  SQLExecute('SELECT pass FROM users WHERE id='+ frmLogin.cbStatus.sqlValue)<>'1' then
     begin
     // показать поле пароль
     frmLogin.ePassword.Visible:=True;
     // показать кнопку авторизации по поролю
     frmLogin.bLoginOk.Visible:=True;
    end;
end;

procedure frmReportCard_BtSearch_OnAfterClick (Sender: TObject);
 begin
   If FrmReportCard.CBWork.ItemIndex = -1 then
     begin
      if  FrmReportCard.CBStaff.sqlValue = SQLExecute('SELECT Staff.id FROM Staff  JOIN DictPosition ON staff.id_DictPosition=DictPosition.id WHERE Administrative = 1 AND Staff.id='+FrmReportCard.CBStaff.sqlValue+'')
       Then
        begin
         FrmReportCard.SaveRepCard.Enabled := True;
        end
 Else if FrmReportCard.CBStaff.sqlValue = SQLExecute('SELECT Staff.id FROM Staff  JOIN DictPosition ON staff.id_DictPosition=DictPosition.id WHERE Administrative = 0 AND Staff.id='+FrmReportCard.CBStaff.sqlValue+'')
        Then
         begin
          FrmReportCard.CBWork.DroppedDown := True;
          FrmReportCard.SaveRepCard.Enabled := False;
         end
     end
end;

StrToInt(SQLExecute('SELECT COUNT(Staff.id) FROM Staff  JOIN DictPosition ON staff.id_DictPosition=DictPosition.id WHERE Administrative = 1 AND Staff.id='+FrmReportCard.CBStaff.sqlValue))>0