var
  lSQL: string;
  lLogTimer : TLogTimer;
  lStr: string;
  t1, t2, t3: LongInt;
begin
  lLogTimer := TLogTimer.Create;
  try
    dbFB.Connected := True;
    lSQL := 'SELECT OPCJA, WARTOSC, IDUZYTKOWNIKA FROM KONFIGURACJA WHERE (IDUZYTKOWNIKA=0 OR ' +
        'IDUZYTKOWNIKA=:IDMASZYNY OR IDUZYTKOWNIKA=:IDUZYTKOWNIKA)';
    t1 := lLogTimer.WorkingTime;
    dsFB.close;
    dsFB.selectSQL.Text := lSQL;
    dsFB.ParamByName('IDUZYTKOWNIKA').AsInteger := 3;
    dsFB.ParamByName('IDMASZYNY').AsInteger := 0;//TrgCrypt.CRC32AsInteger(TrgMachine.ComputerName); // maszyna, MAC karty sieciowej
    dsFB.Open;

    t2 := lLogTimer.WorkingTime;

    dsFB.FetchAll;
    t3 := lLogTimer.WorkingTime;

    while not dsFB.EOF do
    begin
      lStr := dsFB.FieldByName('OPCJA').AsString + ' ' + IntToStr(dsFB.FieldByName('IDUZYTKOWNIKA').AsInteger);
      dsFB.Next;
    end;
  finally
    lLogTimer.Free;
  end;
  mmo1.Lines.Add(Format('t1 = %d ms; t2 = %d ms; t3 = %d ms; recs = %d', [t1, t2, t3, dsFB.RecordCount]));
  dsFB.Close;
  dbFB.ForceClose;
  dbFB.Connected := False;