Delphi Oracle Unicode 报ORA-12571

  if CompareStr(vg_DataBaseType,'Oracle') = 0 then
  begin
    with SysDM.OraqryReaderInfoData do
    begin
      sSQL := sSQL +
        ' reader_name = :ReaderName' +
        ' where reader_barcode = :ReaderBar';
      Close;
      SQL.Text := sSQL;
      ParamByName('ReaderName').AsString := Trim(A_pInfo^.ReaderName);
      ParamByName('ReaderBar').AsString := Trim(A_pInfo^.ReaderBar);      try
        ExecSQL;
        Result := True;
      except
        on E: Exception do WriteLog('Melinets_UpdateReaderInfo ' + E.Message);
      end;
      Close;
    end;
  end;
语句是这样写的。
执行到这里就报
net error 0 ORA-12571
都找不到原因，别的程序就好好的，如果语句里不带:readername，这个参数，也是没有问题的。