procedure TClients.getSQLrequest(sql: string);

begin
 with fDataModule_modelwork do begin
  try
  if IBQuery_SQLrequest.Transaction.Active then IBQuery_SQLrequest.Transaction.Active:=false;
  if IBQuery_SQLrequest.active then IBQuery_SQLrequest.Close;
  IBQuery_SQLrequest.SQL.Clear;
  IBQuery_SQLrequest.SQL.Add(sql);
  IBQuery_SQLrequest.Open;
  except
  on e: exception do
  MessageDlg('Ошибка выполнения запроса'+#13#10+e.message, mtError, [mbOk], 0);
  end;
 end;
end;

procedure TClients.getClients_list();
begin
getSQLrequest('select ID,NAME from CLIENTS');
end;

select ID,NAME from CLIENTS where id=:id_client
ParamByName ('id_client').asinteger:=100;

 getSQLrequest('select ID,NAME from CLIENTS where  id:='+id_client);

clients_query_method(){
Sql.AddQuery('select ID,NAME from CLIENTS where id=:id_client')
Sql.AddParam('id'):=100;
}

getClients_list() {
general_sql(clients_query_method)

const AParamValues: TDictionary<string, variant>